Bibliotecas: TypeToBytes - página 6

[Sergey Likho]

El código convierte una estructura en una cadena

#include <Data_String.mqh>
#define  DEFINE_STRING(A)                        \
  struct STRING##A                              \
  {                                             \
  private:                                      \
    short Array[A];                             \
                                                \
  public:                                       \
    void operator =( const string Str )         \
    {                                           \
      ::StringToShortArray(Str, this.Array);    \
      return;                                   \
    }                                           \
                                                \
    string operator []( const int = 0 ) const   \
    {                                           \
      return(::ShortArrayToString(this.Array)); \
    }                                           \
  };
DEFINE_STRING(120) // Un análogo de una cadena que tiene un máximo de 128 caracteres.
#undef  DEFINE_STRING

struct str_Message
  {
   int               cnt;
   bool              res;
   double            ter;
   STRING120          str;
  };
void OnStart()
  {
//---
   str_Message a;
   a.cnt = 10;
   a.res = false;
   a.ter = 20.0123;
   a.str = "hello world";
   Print(DATA_STRING::ToString(str1););
  }

// Результат
//2020.03.31 10:43:18.320	StructTest2 (EURUSD,H1)	CgAAAAClvcEXJgM0QGgAZQBsAGwAbwAgAHcAbwByAGwAZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA

¿Cómo hacer la conversión inversa? (de cadena a estructura)

[fxsaber]

Sergey Likho:

El código convierte la estructura en una cadena

¿Cómo hacer la conversión inversa? (de cadena a estructura)

const string Str = DATA_STRING::ToString(a); // Traducir la estructura en una cadena.

str_Message Tmp[1];

// Obtener un array de estructuras a partir de la cadena
if (DATA_STRING::FromString(Str, Tmp))   
{
  ArrayPrint(Tmp);
  Print(Tmp[0].str[]);   
  
  Print(_R(Tmp) == a); // Verificar que los datos coinciden con los datos originales.
}

// Obtener la estructura de la cadena.
// Tmp[0] = DATA_STRING::FromString<str_Mensaje>(Str); // Esto es posible si no hay operador de asignación (ver STRING120::operador =).

[fxsaber]

Otra aplicación de las capacidades de la biblioteca.

[Enrique Dangeroux]

//+------------------------------------------------------------------+
//|prueba.mq5
//|Copyright 2021, MetaQuotes Ltd. |
//| https://www.mql5.com
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, MetaQuotes Ltd."
#property link      "https://www.mql5.com"
#property version   "1.00"

#include <TypeToBytes.mqh> 


CONTAINER <uchar> Container;


int OnInit()
  {
//---

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Función de desinicialización experta|
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//| Función tick experto|
//+------------------------------------------------------------------+
void OnTick()
  {
//---
   
  }
//+------------------------------------------------------------------+

La línea amarilla de código ya no compila. Da el siguiente error (build 2980):

¿Alguna idea para solucionar el problema?

[fxsaber]

Enrique Dangeroux:

La línea amarilla de código ya no compila. Genera el siguiente error (compilación 2980):

¿Alguna idea para solucionar el problema?

Foro sobre trading, sistemas automatizados de trading y testeo de estrategias de trading

Bibliotecas: SingleTesterCache

fxsaber, 2021.06.21 02:42 pm.

En TypeToBytes.mqh, sustituye {0} por {} en todas partes.

[Enrique Dangeroux]

Gracias, señor.

[fxsaber]

Actualizado. Evita una característica que se encontró. Anteriormente podía afectar negativamente a _ArrayCopy y CONTAINER.

[Edgar Akhmadeev]

He escrito una función para guardar cadenas de cualquier longitud en variables globales utilizando su biblioteca. No lo entiendo todo, así que seguro que no la he usado al 100%.

¿Alguna idea sobre un uso más eficiente?

#include <TypeToBytes.mqh>


//--------------------------------------------------------------------------------------------------
string
GVarGetString(string name) {
        double dbl[];
        
        // Leer las partes de la variable: Nombre, Nombre(1), Nombre(2), ...
        for (int i = 0; ; ++i) {
                string s = (i == 0)? "" : "(" + (string)i + ")";
                double t = GlobalVariableGet(name + s);
                if (t == 0)
                        break;
                
                MyArrayResize(dbl, i + 1);
                dbl[i] = t;
        }
        
        uchar tmp0[], tmp[], tmp1[];  
        _ArrayCopy(tmp0, dbl);
        if (tmp0[0] != 0)
                // Sin comprimir
                return CharArrayToString(tmp0);
        else {
                // Con compresión
                ArrayCopy(tmp, tmp0, 0, 1);
                CryptDecode(CRYPT_ARCH_ZIP, tmp, tmp1, tmp1);
                return CharArrayToString(tmp1);
        }
}


//--------------------------------------------------------------------------------------------------
void
GVarSetString(string name, string val) {
        double dbl[];
        uchar tmp[];
        uchar zero[1];
        int cnt = CryptEncode(CRYPT_ARCH_ZIP, _R(val).Bytes, tmp, tmp);
        if (cnt >= StringLen(val)) {
                // Sin comprimir
                string str[1];
                str[0] = val;
                _ArrayCopy(dbl, str);
        }
        else {
                // Con compresión
                _ArrayCopy(dbl, zero, 0, 0, 1);         // Byte[0] == 0 - con compresión
                _ArrayCopy(dbl, tmp, 1);                // De byte[1] datos
        }
        
        // Escribe las partes de la variable: Nombre, Nombre(1), Nombre(2), ...
        cnt = ArraySize(dbl);
        for (int i = 0; i < cnt; ++i) {
                string s = (i == 0)? "" : "(" + (string)i + ")";
                GlobalVariableSet(name + s, dbl[i]);
        }
        GlobalVariablesFlush();
}

[fxsaber]

Edgar Akhmadeev variables globales utilizando su biblioteca. No lo entiendo todo, así que seguro que no la he usado al 100%.

¿Alguna idea sobre un uso más eficiente?

Echa un vistazo a esta opción.

También sería conveniente usar CONTAINER<double> para las variables globales .

[Edgar Akhmadeev]

fxsaber #:

Echa un vistazo a esta opción.

También sería conveniente utilizar CONTAINER<double> para las variables globales .

Gracias