Registro de cotações num arquivo txt com o nome do arquivo e o caminho completo - biblioteca para MetaTrader 4

Descrição da função:

#import "ITTPSymbol.dll"  
    int CreateFile(string Path, string symbol, int Priсe);

Um exemplo de como chamar a função:

 CreateFile(Path, Symbol(), Ask);

Como você pode ver, tudo é simples. A função irá, por um lado, criar um arquivo de texto com o nome symbol e, por outro, registrar lá (substituir) o valor price. De acordo com o caminho especificado no valor do Patch. O código-fonte da biblioteca foi escrito em Delphi. Se você estiver interessado, você pode refazê-la.

Código-fonte da biblioteca em delphi:

library ITTPSymbol;
 
 uses classes, Dialogs,sysutils;



{$r *.res}
function CreateFile(Path: Pchar ;  Symbol: Pchar;  Priсe: integer ): integer; stdcall;
 
var outfile: TextFile;
 
begin
AssignFile(outfile, string(Path)+'\' + string(Symbol) + '.txt');
 
 try
   Rewrite(outfile);
   writeln(outfile, Priсe);
   CloseFile(outfile);
   Result:=0;
 except
   Result:=1;
 end;
   Result:=0;
 
end;
 
exports CreateFile;
 
end.

se a execução da função foi bem-sucedida, o CreateFile() retorna 0, caso contrário -1.

Exemplo de um script que escreve no disco C: \ o arquivo com o nome do símbolo atual, no qual foi executado o script. Ao mesmo tempo o parâmetro prise do tipo integer é gravado no arquivo

//+------------------------------------------------------------------+
//|                                                   ITTPSymbol.mq4 |
//|                                        Copyright © 2007 ITTP Gr. |
//|                                            http://www.ITTPortal.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007 ITTP Gr."
#property link      "http://www.ITTPortal.net"
//---- 
#import "ITTPSymbol.dll"  
    int CreateFile(string Path, string symbol, int Priсe);
string Path;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
  {
      Path = "C:"; // A última barra "\" não é especificada! 
   CreateFile(Path, Symbol(), 53); 
//----
   return(0);
  }
//+-------

Bem, isso tudo uso, use à vontade.

16.04.2007 года.  Foram corrigidos vários erros na nova versão da dll:

• substituído Patch com Path;
• na biblioteca foi removido o código extra.

A versão antiga da biblioteca foi eliminada, de modo que você pode baixar com segurança.