Schreibt die Kurse in eine txt-Datei mit dem vollständigen Pfad und Dateinamen - Bibliothek für den MetaTrader 4

Funktion Beschreibung:

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

Ein Beispiel für einen Funktionsaufruf:

 CreateFile(Path, Symbol(), Ask);

Wie Sie sehen können, ist alles sehr einfach. Die Funktion erstellt eine Textdatei mit dem Namen 'Symbol' und (über-)schreibt den Preis hinein. Gemäß des angegebenen Pfads. Diese Bibliothek wurde in Delphi geschrieben. Wenn jemand interessiert ist, können Sie wiederholen es.

Der Quellcode der Bibliothek in 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.

Wenn die Funktion erfolgreich ausgeführt wurde, liefert CreateFile() 0 zurück, ansonsten -1.

Das Beispiel-Skript schreibt eine Datei auf das Laufwerk C:\ mit den Namen des aktuellen Symbols auf dem das Skript ausgeführt wurde. Zur gleichen Zeit wird der Preis als 'integer'-Typ in die Datei geschrieben:

//+------------------------------------------------------------------+
//|                                                   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()
  {
 Pfad = "C:"; // Der Letzte Schrägstrich "\" muss nicht angegeben werden! 
   CreateFile(Path, Symbol(), 53); 
//----
   return(0);
  }
//+-------

Das ist es, verwenden Sie es, wie Sie wollen.

16.04.2007. Behebung mehrerer Fehler in der neuen Version der dll:

• ein Patch des Pfads;
• unnötiger Code der Bibliothek wurde entfernt.

Die alte Version der Bibliothek wurde gelöscht, so dass man sie nicht herunterladen kann, sicher ist sicher.