Bibliotecas: Mapeamento de Arquivo sem DLL - página 9

Novo comentário
 

Agradeço ao autor pela biblioteca!

Criei funções para transferir quaisquer dados. O script abaixo mostra o trabalho delas no exemplo dos ticks

#include <MemMapLib.mqh>
#include <TypeToBytes.mqh>

// Aloca a memória do comprimento especificado para os dados 
template <typename T>
bool GetFileMemory( CMemMapFile* &FileMemory, const int Amount, const string FileName = "Local\\test" )
{
  FileMemory = new CMemMapFile;
    
  return(FileMemory.Open(FileName, sizeof(T) * Amount + sizeof(int) + HEAD_MEM, modeCreate) == 0);
}

// Grava dados na memória
template <typename T>
void DataSave( CMemMapFile* FileMemory, const T &Data[], const bool FromBegin = true  )
{
  const int Size = ArraySize(Data) * sizeof(T);
  uchar Bytes[];
  
  _ArrayCopy(Bytes, _R(Size).Bytes);              // Registrou a quantidade 
  _ArrayCopy(Bytes, _R(Data).Bytes, sizeof(int)); // Registrou os dados

  if (FromBegin)
    FileMemory.Seek(0, SEEK_SET);

  FileMemory.Write(Bytes, ArraySize(Bytes)); // Despejou tudo na memória
  
  return;
}

// Lê dados da memória
template <typename T>
int DataLoad( CMemMapFile* FileMemory, T &Data[], const bool FromBegin = true )
{
  if (FromBegin)
    FileMemory.Seek(0, SEEK_SET);

  uchar Bytes[];
          
  FileMemory.Read(Bytes, sizeof(int));  // Ler a quantidade de dados da memória 
  FileMemory.Read(Bytes, _R(Bytes)[0]); // Obteve os dados propriamente ditos

  _ArrayCopy(Data, Bytes);              // Despejou os dados em uma matriz
  
  return(ArraySize(Data));
}

#define  AMOUNT 1000

#define  TOSTRING(A) #A + " = " + (string)(A) + " "

// Exemplo de transmissão de ticks
void OnStart()
{  
  CMemMapFile* FileMemory;
  
  if (GetFileMemory<MqlTick>(FileMemory, AMOUNT))
  {
    MqlTick Ticks4Save[];    
    CopyTicks(_Symbol, Ticks4Save, COPY_TICKS_INFO, 0, AMOUNT);
    
    DataSave(FileMemory, Ticks4Save);
    
    MqlTick Ticks4Load[];    
    
    if (DataLoad(FileMemory, Ticks4Load) > 0)    
      Print(TOSTRING((_R(Ticks4Save) == Ticks4Load)) +
            TOSTRING(ArraySize(Ticks4Save)) +
            TOSTRING(ArraySize(Ticks4Load)));
     
    FileMemory.Close();   
  }
  
  delete FileMemory;
}


Resultado

(_R(Ticks4Save)==Ticks4Load) = true ArraySize(Ticks4Save) = 1000 ArraySize(Ticks4Load) = 1000
 

Atualização da versão

1.02 - Alterada a cópia de estruturas para a união

Arquivos anexados:
MemMapLib.mqh  31 kb
 
o_o:

Atualização da versão

1.02 - Alterada a cópia de estruturas para a união

Substituído o arquivo e publicado
 
o_o:
Talvez você não tenha levado em conta que aqui na classe os primeiros bytes são alocados para o cabeçalho, onde o tamanho do arquivo é armazenado?

Pode me dizer se estou fazendo isso corretamente?

Quero gravar/ler duas vezes. Como o mql4 não sabe como copiar estruturas umas nas outras, fiz o contrário.

Em seu script não havia chamadas com esses tipos de parâmetros, então eu as adicionei:

	// 64
        long memcpy(double &Destination[], uchar &Source[], int Length);
        long memcpy(uchar &Destination[], double &Source[], int Length);

E esse código funcionou sem erros:

void OnStart()
  {
   CMemMapFile hmem;
   long err=hmem.Open("Local\\test",111,modeCreate);

   double src[5]={1.2,3.4,5.6,7.8,9.0};
   int cnt=sizeof(double)*ArraySize(src);
   uchar data[5*8];
   memcpy(data,src,cnt);
   err=hmem.Write(data,ArraySize(data));



   ArrayInitialize(data,0);
   hmem.Seek(0,SEEK_SET);
   err=hmem.Read(data,ArraySize(data));

   ArrayInitialize(src,0);
   memcpy(src,data,cnt);
   
   hmem.Close();
  }


1. Posso usar o memcpy com esses tipos de parâmetros? Se "está tudo errado, vamos fazer de novo" não, então como escrever/ler o dobro?

2. Isso funcionará em 32 bits?

 
Denis Lysenko:

Quero escrever/ler duas vezes. Como o mql4 não sabe como copiar estruturas umas nas outras, fiz o contrário.

Agora você pode copiar estruturas com a ajuda da união


1. Posso usar o memcpy com esses tipos de parâmetros?

2. Isso funcionará em 32 bits?

Sim

 
Customer:

Se a última negociação der prejuízo, eles aumentam o lote


2 negociações por sessão, mas abrir e fechar, por exemplo, abrir 8,00 GBP /usd e fechar 16,00 gbp /usd

 
o_o:

as estruturas agora podem ser copiadas usando a união


Por algum motivo, o comentário anterior foi apagado.

   union dbl_u
     {
      double            value;
     };
   union uchar_u
     {
      uchar              value[8];
     };
     
   dbl_u dbl;
   uchar_u chr;
   
   dbl = chr;
Ele retorna: '=' - uso ilegal da operação
 
Denis Lysenko:

Por algum motivo, o comentário anterior foi apagado.

O resultado é: '=' - uso de operação ilegal
Leia o manual. Os sindicatos não usam essa forma.
 

Por favor, me ajude a entender por que o código a seguir não funciona:

#include <MemMapLib.mqh>

//------------------------------------------------------------------ OnStart
void OnStart()
{
        CMemMapFile hmem;
        long err=hmem.Open("Local\\test",111,modeCreate);
        
        uchar data[],data2[];
        StringToCharArray("0.12243;0.44565;1.32452",data);
        err=hmem.Write(data,ArraySize(data));

   ArrayResize(data2,ArraySize(data));
        ArrayInitialize(data2,0);
        hmem.Seek(0,SEEK_SET);
        err=hmem.Read(data2,ArraySize(data2));
        
        Print("Read result=",CharArrayToString(data2));
        
        hmem.Close();
        
   Print("New cycle of open memory file");
   err=hmem.Open("Local\\test",111,modeOpen);
   Print("err1=",err);  
        
        ArrayInitialize(data2,0);
        hmem.Seek(0,SEEK_SET);
        err=hmem.Read(data2,ArraySize(data2));
        Print("err2=",err);     
        
        Print("after reading data2=",CharArrayToString(data2));
        
        hmem.Close();   
                
}

O resultado do código:

2017.09.20 11:13:54.981 memmap_MY_02_question EURUSD,H1: after reading data2=
2017.09.20 11:13:54.981 memmap_MY_02_question EURUSD,H1: err2=-1
2017.09.20 11:13:54.981 memmap_MY_02_question EURUSD,H1: err1=0
2017.09.20 11:13:54.981 memmap_MY_02_question EURUSD,H1: New cycle of open memory file
2017.09.20 11:13:54.981 memmap_MY_02_question EURUSD,H1: Read result=0.12243;0.44565;1.32452

Por que não consigo ler o conteúdo de um arquivo na memória depois de reabri-lo?

Executo o script no terminal MT4.

 
Иван:

Por que não consigo ler o conteúdo de um arquivo na memória depois de reabri-lo?

Pelo menos você não tenta ler um arquivo na memória depois de reiniciar o computador...

123456789101112
Novo comentário