FileSender

ÿþ//+------------------------------------------------------------------+

//|                                      FileSender_for_Repeater.mq4 |

//|                                                      sanyooooook |

//|                                                 http://sn-bot.ru |

//+------------------------------------------------------------------+

#property copyright "sanyooooook"

#property link      "http://sn-bot.ru"

#property version   "1.00"

#property strict

enum myType {receiver,transmitter};

input myType mode=transmitter;

input int Sleep_=500;

input string MasterAccount="";

input string url1="https://yoursite.net/";

 string url="";

string FileName="";

//FileInfo.txt";

//+------------------------------------------------------------------+

//| Expert initialization function                                   |

//+------------------------------------------------------------------+

int OnInit()

  {

//---

   FileName="";

   StringConcatenate(FileName,MasterAccount,".trf");

   url=url1+FileName;

//---

   return(INIT_SUCCEEDED);

  }

//+------------------------------------------------------------------+

//| Expert deinitialization function                                 |

//+------------------------------------------------------------------+

void OnDeinit(const int reason)

  {

//---

   

  }

//+------------------------------------------------------------------+

//| Expert tick function                                             |

//+------------------------------------------------------------------+

void OnTick()

  {

//---

   //if(TimeCurrent()>=StringToTime("2020.12.31 23:59")){Alert("Trial period has ended. Welcome to sn-bot@yandex.ru");return;}

   switch (mode)

   {

      case transmitter:

      {

         while(!IsStopped())

         {

            Comment(TimeCurrent());

            bool a=SendFTP_File();

            Sleep(Sleep_);

         }

      }

      case receiver:

      {

         while(!IsStopped())

         {

            Comment(TimeCurrent());

            WebRequestFile();

            Sleep(Sleep_);

         }

      }

   }

  }

//+------------------------------------------------------------------+

bool WebRequestFile()

  {

//---

   string cookie=NULL,headers;

   char post[],result[];

   int res;

//--- 4;O @01>BK A A5@25@>< =5>1E>48<> 4>1028BL URL "https://www.google.com/finance" 

//--- 2 A?8A>: @07@5H5==KE URL (;02=>5 <5=N->!5@28A->0AB@>9:8, 2:;04:0 "!>25B=8:8"):

   //string google_url="http://sn-bot.ucoz.ru/"+ServerFile;//FileInfo.txt";

//--- >1=C;O5< :>4 ?>A;54=59 >H81:8

   ResetLastError();

//--- 703@C7:0 html-AB@0=8FK A Google Finance

   res=WebRequest("GET",url,cookie,NULL,400,post,0,result,headers);

   //Print(url);

//--- ?@>25@:0 >H81>:

   if(res==-1)

     {

      Print("H81:0 2 WebRequest. >4 >H81:8  =",GetLastError());

      //--- 2>7<>6=> URL >BACBAB2C5B 2 A?8A:5, 2K2>48< A>>1I5=85 > =5>1E>48<>AB8 53> 4>102;5=8O

      MessageBox("5>1E>48<> 4>1028BL 04@5A '"+url+"' 2 A?8A>: @07@5H5==KE URL 2> 2:;04:5 '!>25B=8:8'","H81:0",MB_ICONINFORMATION);

      return(false);

     }

   else

     {

      //--- CA?5H=0O 703@C7:0

      //PrintFormat("$09; CA?5H=> 703@C65=,  07<5@ D09;0 =%d 109B.",ArraySize(result));

      int Size=ArraySize(result);

      if(Size==0){Print(">;CG5= D09; =C;52>3> @07<5@0.");return(false);}

      //PrintFormat("$09; CA?5H=> 703@C65=,  07<5@ D09;0 =%d 109B.",Size);

      //--- A>E@0=O5< 40==K5 2 D09;

      FileName="";

      StringConcatenate(FileName,"TR_FULL\\",MasterAccount,".trf");

      int filehandle=FileOpen(FileName,FILE_WRITE|FILE_BIN|FILE_SHARE_READ|FILE_SHARE_WRITE|FILE_COMMON);

      //--- ?@>25@:0 >H81:8

      if(filehandle!=INVALID_HANDLE)

        {

         //--- A>E@0=O5< A>45@68<>5 <0AA820 result[] 2 D09;

         FileWriteArray(filehandle,result,0,ArraySize(result));

         //--- 70:@K205< D09;

         FileClose(filehandle);

        // FileCopy(FileName,FILE_COMMON,FileName,FILE_REWRITE);



        }

      else Print("H81:0 2 FileOpen. >4 >H81:8 =",GetLastError());

      return(true);

     }

  }

//+------------------------------------------------------------------+

double LastX=0;

bool SendFTP_File()

{

   FileName="";

   StringConcatenate(FileName,"TR_FULL\\",AccountInfoInteger(ACCOUNT_LOGIN),".trf");

   if(GlobalVariableGet("x")!=LastX)

   {

   FileCopy(FileName,FILE_COMMON,FileName,FILE_REWRITE);

      if(SendFTP(FileName))

      {

         Print("$09; >B?@02;5=.");

         if(GlobalVariableGet("x")-LastX>1){LastX++;return(false);}

         LastX=GlobalVariableGet("x");

         return(true);

      }

      else    Print(FileName, " 5C40G=0O >B?@02:0 D09;0. ",GlobalVariableGet("x") );

   }

   return(false);

   

}