Запись котировок в txt файл с указанием полного пути и имени файла - библиотека для MetaTrader 4

Описание функции:

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

Пример вызова функции:

 CreateFile(Path, Symbol(), Ask);

Как видите все предельно просто. Функция будет создавать текстовый файл с именем symbol и записывать(перезаписывать) туда значение prise. По пути указанному в значении Patch. Данная библиотека написана на Delphi. Если кому интересно, можно переделать.

Исходный код библиотеки на 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.

при успешном выполнении функции CreateFile() возвращает 0, иначе -1.

Пример скрипта, который записывает на диск С:\ файл с названием текущего символа, на котором был запущен скрипт. При этом в файл записывается параметр prise тип integer:

//+------------------------------------------------------------------+
//|                                                   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:"; // Последний слеш "\" не указывается! 
   CreateFile(Path, Symbol(), 53); 
//----
   return(0);
  }
//+-------

Ну вот и все, пользуйтесь.

16.04.2007 года.  В новой версии dll было исправлено несколько ошибок:

• заменены Patch на Path;
• в самой библиотеке был удален лишний код.

Старая версия библиотеку удалена, так что можно смело качать.