consumir web service SOAP con TOKEN en delphi

[Muriel]

Hola buenas Señores del foro
les comento que sigo luchando con este teme de querer poner el token como encabezado en http pero por mas que me ponga a leer en muchos foros ejemplos similares no logro comprender nada, en todo esto lo único que pude hacer es esto, pero el servidor me sigue generando el error.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Peticion: verificarComunicacion;
    Respuesta: verificarComunicacionResponse;
    Token: String;
begin
     Token:='ePyJ0eXwiOiJKV1QiLwthbGciOiJIUzUx...........elTokenEsUnaCadenaLarga';
     
     Peticion:= Nil;
     HTTPRIO1:= THTTPRIO.Create(self);
     HTTPRIO1.HTTPWebNode.Password:=Token;
     Try
         Respuesta:= GetServicioFacturacionCodigos(False,'',HTTPRIO1).verificarComunicacion(Peticion);
         ShowMessage(IntToStr(Respuesta.return));
     Except
          on E : Exception do
               ShowMessage('Error generado : '+E.Message);
     end;
 
end;

Si alguien me ayuda si estoy en la direccion correcta por favor.

[Muriel]

hola amigos del foro, estoy aquí o través con la misma cantaleta y es por que todavía no logro entender este teme de encasados http
pero tanto buscar encontré este ejemplo en algún foro pero no se si estoy en lo correcto

Código Delphi [-]
const
  IS_TEXT = $0020;

  apikey = class(TSOAPHeader)
  private
    FValue: string;
  published
    property Value: string Index (IS_TEXT) read FValue write FValue;
  end;

esto hice debido a que en SoapUI funciona así como en la imagen que deje adjuntado.
con esto mi código en un botón me que da así

Saludos

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Respuesta: respuestaComunicacion;
   Token: apikey;
begin
     Token:= apikey.Create;
     Token.Value:= 'TokenApi eyJ0eXA.eyJzdWIiOiJDLkkuQy5NLkjoiU0ZFIn0.a7fDfvP2CmB';

     HTTPRIO1.SOAPHeaders.SetOwnsSentHeaders(True);
     HTTPRIO1.SOAPHeaders.Send(Token);
     Try
          Respuesta:=GetServicioFacturacionCodigos(false, '', HTTPRIO1).verificarComunicacion;
          Edit1.Text:= Respuesta.mensajesList[0].descripcion;
     Except
          on E : Exception do
               ShowMessage('Error generado : '+E.Message);
     end;
end;

pero aun así no funciona, o no es así como se hace
por favor quisiera que me ayuden

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

Debería especificar los errores que te da con detalle.
Si nos dices sólo "no funciona" es difícil ayudarte o darte pistas de dónde puede estar el problema.

[Muriel]

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

Debería especificar los errores que te da con detalle.
Si nos dices sólo "no funciona" es difícil ayudarte o darte pistas de dónde puede estar el problema.

Gracias por contestar amigo, creo que eres el único que tiene interés en querer ayudarme.
no se si es relevante el error que muestra solo dice esto "EL SERVICIO REQUIERE API KEY"
puse una captura adjuntado para que lo veas.
me gustaría pasarte el token para que lo pruebes si se puede en un correo electrónico

un abraso

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

Empezado por Muriel

no se si es relevante el error que muestra solo dice esto "EL SERVICIO REQUIERE API KEY"
puse una captura adjuntado para que lo veas.

El error parece claro. Revisa la documentación.

En algún lugar de la llamada debes añadir esa información que imagino que te la tendrán que dar ellos.
O como campo en la llamada, como datos dentro del cuerpo o a veces en la cabecera.