GeneralTradingSarl
144 lines
12 KiB
Plaintext
144 lines
12 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//| WebRequest.mq5 |
|
|
//| Copyright 2015, MetaQuotes Software Corp. |
|
|
//| http://www.mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
#property copyright "Copyright 2015, MetaQuotes Software Corp."
|
|
#property link "http://www.mql5.com"
|
|
#property version "1.00"
|
|
#property strict
|
|
#property script_show_inputs
|
|
#property description "Sample script posting a user message "
|
|
#property description "on the wall on mql5.com"
|
|
|
|
input string InpLogin =""; //Your MQL5.com account
|
|
input string InpPassword=""; //Your account password
|
|
input string InpFileName="EURUSDM5.png"; //An image in folder MQL5/Files/
|
|
input string InpFileType="image/png"; //Correct mime type of the image
|
|
//+------------------------------------------------------------------+
|
|
//| Posting a message with an image on the wall at mql5.com |
|
|
//+------------------------------------------------------------------+
|
|
bool PostToNewsFeed(string login,string password,string text,string filename,string filetype)
|
|
{
|
|
int res; // To receive the operation execution result
|
|
char data[]; // Data array to send POST requests
|
|
char file[]; // Read the image here
|
|
string str="Login="+login+"&Password="+password;
|
|
string auth,sep="-------Jyecslin9mp8RdKV"; // multipart data separator
|
|
//--- A file is available, try to read it
|
|
if(filename!=NULL && filename!="")
|
|
{
|
|
res=FileOpen(filename,FILE_READ|FILE_BIN);
|
|
if(res<0)
|
|
{
|
|
Print("Error opening the file \""+filename+"\"");
|
|
return(false);
|
|
}
|
|
//--- Reading file data
|
|
if(FileReadArray(res,file)!=FileSize(res))
|
|
{
|
|
FileClose(res);
|
|
Print("Error reading the file \""+filename+"\"");
|
|
return(false);
|
|
}
|
|
//---
|
|
FileClose(res);
|
|
}
|
|
//--- Creating the body of the POST request for authorization
|
|
ArrayResize(data,StringToCharArray(str,data,0,WHOLE_ARRAY,CP_UTF8)-1);
|
|
//--- Resetting error code
|
|
ResetLastError();
|
|
//--- Authorization request
|
|
res=WebRequest("POST","https://www.mql5.com/ru/auth_login",NULL,0,data,data,str);
|
|
//--- If authorization failed
|
|
if(res!=200)
|
|
{
|
|
Print("Authorization error #"+(string)res+", LastError="+(string)GetLastError());
|
|
return(false);
|
|
}
|
|
//--- Reading the authorization cookie from the server response header
|
|
res=StringFind(str,"Set-Cookie: auth=");
|
|
//--- If cookie not found, return an error
|
|
if(res<0)
|
|
{
|
|
Print("Error, authorization data not found in the server response (check login/password)");
|
|
return(false);
|
|
}
|
|
//--- Remember the authorization data and form the header for further requests
|
|
auth=StringSubstr(str,res+12);
|
|
auth="Cookie: "+StringSubstr(auth,0,StringFind(auth,";")+1)+"\r\n";
|
|
//--- If there is a data file, send it to the server
|
|
if(ArraySize(file)!=0)
|
|
{
|
|
//--- Forming the request body
|
|
str="--"+sep+"\r\n";
|
|
str+="Content-Disposition: form-data; name=\"attachedFile_imagesLoader\"; filename=\""+filename+"\"\r\n";
|
|
str+="Content-Type: "+filetype+"\r\n\r\n";
|
|
res =StringToCharArray(str,data);
|
|
res+=ArrayCopy(data,file,res-1,0);
|
|
res+=StringToCharArray("\r\n--"+sep+"--\r\n",data,res-1);
|
|
ArrayResize(data,ArraySize(data)-1);
|
|
//--- Forming the request header
|
|
str=auth+"Content-Type: multipart/form-data; boundary="+sep+"\r\n";
|
|
//--- Resetting error code
|
|
ResetLastError();
|
|
//--- Request to send an image file to the server
|
|
res=WebRequest("POST","https://www.mql5.com/upload_file",str,0,data,data,str);
|
|
//--- Checking the request result
|
|
if(res!=200)
|
|
{
|
|
Print("Error sending a file to the server #"+(string)res+", LastError="+(string)GetLastError());
|
|
return(false);
|
|
}
|
|
//--- Receiving a link to the image uploaded to the server
|
|
str=CharArrayToString(data);
|
|
if(StringFind(str,"{\"Url\":\"")==0)
|
|
{
|
|
res =StringFind(str,"\"",8);
|
|
filename=StringSubstr(str,8,res-8);
|
|
//--- If file uploading fails, an empty link will be returned
|
|
if(filename=="")
|
|
{
|
|
Print("File sending to server failed");
|
|
return(false);
|
|
}
|
|
}
|
|
}
|
|
//--- Create the body of a request to post an image on the server
|
|
str ="--"+sep+"\r\n";
|
|
str+="Content-Disposition: form-data; name=\"content\"\r\n\r\n";
|
|
str+=text+"\r\n";
|
|
//--- The languages in which the post will be available on mql5.com
|
|
str+="--"+sep+"\r\n";
|
|
str+="Content-Disposition: form-data; name=\"AllLanguages\"\r\n\r\n";
|
|
str+="on\r\n";
|
|
//--- If the picture has been uploaded on the server, pass its link
|
|
if(ArraySize(file)!=0)
|
|
{
|
|
str+="--"+sep+"\r\n";
|
|
str+="Content-Disposition: form-data; name=\"attachedImage_0\"\r\n\r\n";
|
|
str+=filename+"\r\n";
|
|
}
|
|
//--- The final string of the multipart request
|
|
str+="--"+sep+"--\r\n";
|
|
//--- Out the body of the POST request together in one string
|
|
StringToCharArray(str,data,0,WHOLE_ARRAY,CP_UTF8);
|
|
ArrayResize(data,ArraySize(data)-1);
|
|
//--- Prepare the request header
|
|
str=auth+"Content-Type: multipart/form-data; boundary="+sep+"\r\n";
|
|
//--- Request to post a message on the user wall at mql5.com
|
|
res=WebRequest("POST","https://www.mql5.com/ru/users/"+InpLogin+"/wall",str,0,data,data,str);
|
|
//--- Return true for successful execution
|
|
return(res==200);
|
|
}
|
|
//+------------------------------------------------------------------+
|
|
//| Script program start function |
|
|
//+------------------------------------------------------------------+
|
|
void OnStart()
|
|
{
|
|
//--- Post a message on mql5.com, including an image, the path to which is taken from the InpFileName parameter
|
|
PostToNewsFeed(InpLogin,InpPassword,"Checking the new version of the WebRequest function\r\n"
|
|
"(This message has been posted by the WebRequest.mq5 script)",InpFileName,InpFileType);
|
|
}
|
|
//+------------------------------------------------------------------+
|