将报价写入文件, 文件名包含全路径 - MetaTrader 4程序库

函数描述:

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

函数的调用例程:

 CreateFile(Path, Symbol(), Ask);

如您所见, 所有事情都很简单。函数将创建一个以 "品种" 为名的文本文件, 并在此写入(覆盖) '价格' 值。根据在 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。

简单的脚本以当前品种为名写一个文件, 脚本将运行在 C:\ 盘上。同时, 整数类型的 '价格' 参数也写入到文件:

//+------------------------------------------------------------------+
//|                                                   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;
//+------------------------------------------------------------------+
//| 脚本程序开始函数                                                  |
//+------------------------------------------------------------------+
int start()
  {
      Path = "C:"; // 最后的反斜线 "\" 不要指定！
   CreateFile(Path, Symbol(), 53); 
//----
   return(0);
  }
//+-------

就这些, 可以使用。

2007 年 4 月 16 日, 在新 dll 里修复一些错误:

• 用 Path 替换 Patch;
• 从函数库本身移除一些不必要的代码。

函数库的旧版已经删除, 所以它可以被安全地下载。