[JM1985]

Hola Eficsa
estoy tratando de implementar tu ejemplo pero no me convierte los caracteres a byte reemplaza la cadena por ???? y al ByteArray le agrega al prinicipio 3444 ?????, y la cadena..

Algo raro es que luego el usuario y la contraseña las vuelve ????? ???????

esto estoy haciendo.

cfdi = archivoXML->Text;

          TByteDynArray vec;
          StringToByteArray(cfdi, vec);


          AnsiString cResponse;
          _di_Application ServicioFINKOK = GetApplication();
          AcuseRecepcionCFDI *response;
          ServicioFINKOK->stamp(vec, InfoMain->usuarioCFDI, InfoMain->contraseniaCFDI);
          cResponse = response->xml;

Este es el método.

TByteDynArray TfrmFormaXML20::StringToByteArray(AnsiString cCadena, TByteDynArray &bda)
{
    bda.set_length(cCadena.Length());
    Move(&cCadena, &bda, cCadena.Length());
}