Tipo de datos TByteDynArray

[JM1985]

Esta es mi otra opción.. consumir un web service.

Pero se me presenta otro detalle mi piden como parámetro TByteDynArray XML

y mi XML es un AnsiString.


Como convierto AnsiString a TByteDynArray??

Gracias.

Saludos.

[ecfisa]

Hola JM1985.

Empezado por JM1985

Como convierto AnsiString a TByteDynArray??

Podes hacer:

void AnsiStringToBDA(AnsiString str, TByteDynArray &bda)
{
  bda.set_length(str.Length());
  Move(&str, &bda, str.Length());
};

Ejemplo de uso:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString tmp, cadena = "ABC 012";
  TByteDynArray  vec;

  AnsiStringToBDA(cadena, vec);
  for(int i=0; i<vec.Length;i++)
    Memo1->Lines->Add(vec[i]);  // 65 66 67 32 48 49 50
}

Saludos

[JM1985]

Hola que tal ecfisa Gracias por responder.


Voy a probar y te comento.

Saludos.

[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());
}

[ecfisa]

Hola de nuevo.

Hago una correción del código anterior: (me dió problemas en una prueba posterior)

void AnsiStringToBDA(AnsiString str, TByteDynArray &bda)
{
  bda.set_length(str.Length());
  Move(str.c_str(),  &bda[0],  str.Length()); // <- Cambia esta línea
};

Ejemplo:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = "Foros Club Delphi > Otros entornos y lenguajes > C++ Builder";
  TByteDynArray bda;

  Memo1->Clear();
  AnsiStringToBDA(str, bda);
  for(int i=0; i<bda.Length;i++)
    Memo1->Lines->Add((char)bda[i]);
}

Saludos

Edito: No había visto tu último mensaje, proba con el cambio que te comento.

[JM1985]

Te adjunto unas imagenes para que veas como me queda el resultado al final creo que no lo está codificando.


El método para consumir el web service me pideun parámetro como tipo TByteDynArray;

 virtual AcuseRecepcionCFDI* stamp(const TByteDynArray xml, const AnsiString username, const AnsiString password) = 0;

y te devuelve como una clase y ahi accedes a lo que te devolvió no había visto algo parecido.

[ecfisa]

Hola JM1985.

No alcanzo a distinguir el texto en las imágenes y lamentablemente desconozco el método AcuseRecepcionCFDI, pero fijate este ejemplo que demuestra que el valor del AnsiString pasa correctamente al ByteDynArray:

// Pasa el contenido del AnsiString al ByteDynArray
void AnsiStringToBDA(AnsiString str, TByteDynArray &bda)
{
  bda.set_length(str.Length());
  Move(str.c_str(),  &bda[0],  str.Length());
};

// Muestra el contenido del ByteDynArray como char
void ShowBDA(TByteDynArray bda, TMemo *Me) {
  String s;

  for(int i=0;i< bda.Length; i++) s += (char)bda[i];
  Me->Clear();
  Me->Lines->Add(s);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString str = "Foros Club Delphi > Otros entornos y lenguajes > C++ Builder";
  TByteDynArray bda;

  AnsiStringToBDA(str, bda);    // AnsiString a ByteDynArray
  ShowBDA(bda, Memo1); // mostrar contenido de ByteDynArray
}

Saludos

[JM1985]

Hola buen día eficsa

disculpa ayer ya no continué con este hilo debido a que me dedique con otro requerimiento ya que este que ando resolviendo ya me llevo algo de tiempo.


Voy a probar y te comento.

Te podría enviar la clase que se genera al momento de importar el web service?..

Saludos