Tipo de datos TByteDynArray

[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