Add(MainForm,2953706,98,84)
{
 Width=572
}
Add(InlineCode,7294639,189,350)
{
 @Hint=#45:Вызов функции SharedStrVarGet из HiAsmMQL.dll|
 WorkPoints=#66:doSharedStrVarGet=Вызывает функцию SharedStrVarGet из HiAsmMQL.dll|
 EventPoints=#61:onSharedStrVarGet=Выдаёт в поток результат выполнения функции|
 DataPoints=#34:Ind=Индекс выбора общей переменной|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:   _prop_Ind:integer;|37:   Ind, onSharedStrVarGet: THI_Event;|60:   Procedure doSharedStrVarGet(var _Data:TData; Index:Word);|0:|5: end;|1: |76:function SharedStrVarGet(i:integer):PChar; stdcall; external 'HiAsmMQL.dll';|0:|14:implementation|0:|40:Procedure THiAsmClass.doSharedStrVarGet;|3:var|12:  i:integer;|13:  out:string;|0:|5:begin|29:  i:= readinteger(_Data,Ind);|35:  out:= String(SharedStrVarGet(i));|37:  _hi_OnEvent(onSharedStrVarGet,out);|4:end;|0:|4:end.|
 link(onSharedStrVarGet,14192987:doMessage,[])
 link(Ind,10818136:Value,[])
}
Add(Button,4595750,105,238)
{
 Left=15
 Top=40
 Width=215
 Caption="Отправить данные в общую переменную"
 link(onClick,855798:doSharedStrVarSet,[])
}
Add(Message,14192987,252,350)
{
}
Add(Memory,10818136,189,301)
{
 Default=Integer(0)
}
Add(InlineCode,855798,168,238)
{
 @Hint=#45:Вызов функции SharedStrVarGet из HiAsmMQL.dll|
 WorkPoints=#66:doSharedStrVarSet=Вызывает функцию SharedStrVarSet из HiAsmMQL.dll|
 DataPoints=#36:InTxt=Строка, передаваемая в функцию|34:Ind=Индекс выбора общей переменной|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:   _prop_InTxt:string;|21:   _prop_Ind:integer;|25:   InTxt, Ind: THI_Event;|60:   Procedure doSharedStrVarSet(var _Data:TData; Index:Word);|0:|5: end;|1: |84:procedure SharedStrVarSet(InTxt:PChar; i:integer); stdcall; external 'HiAsmMQL.dll';|0:|14:implementation|0:|40:Procedure THiAsmClass.doSharedStrVarSet;|3:var|12:  i:integer;|13:  txt:string;|0:|5:begin|29:  i:= ReadInteger(_Data,Ind);|37:  txt:= ReadString(_Data,InTxt) + #0;|30:  SharedStrVarSet(@txt[1], i);|4:end;|0:|4:end.|
 link(InTxt,5629726:Text,[(174,222)(132,222)])
 link(Ind,1358963:Value,[])
}
Add(Button,11769371,112,350)
{
 Left=15
 Top=70
 Width=215
 Caption="Получить данные из общей переменной"
 link(onClick,7294639:doSharedStrVarGet,[])
}
Add(Memory,1358963,175,175)
{
 Default=Integer(0)
}
Add(Label,8501754,175,84)
{
 Left=15
 Top=10
 Width=221
 Height=17
 Caption="Функции SharedSteVarSet SharedSteVarGet"
}
Add(Button,10471125,392,217)
{
 Left=15
 Top=155
 Width=215
 Caption="Отправить данные в общую переменную"
 link(onClick,206227:doSharedIntVarSet,[])
}
Add(Button,3568480,399,329)
{
 Left=15
 Top=185
 Width=215
 Caption="Получить данные из общей переменной"
 link(onClick,2929720:doSharedIntVarGet,[])
}
Add(Label,1900393,462,84)
{
 Left=15
 Top=125
 Width=213
 Height=17
 Caption="Функции SharedIntVarSet SharedIntVarGet"
}
Add(Memory,5491783,455,154)
{
 Default=Integer(0)
}
Add(Memory,10680287,406,154)
{
 Default=Integer(2030269057)
}
Add(InlineCode,2929720,455,329)
{
 @Hint=#45:Вызов функции SharedStrVarGet из HiAsmMQL.dll|
 WorkPoints=#66:doSharedIntVarGet=Вызывает функцию SharedStrVarGet из HiAsmMQL.dll|
 EventPoints=#61:onSharedIntVarGet=Выдаёт в поток результат выполнения функции|
 DataPoints=#34:Ind=Индекс выбора общей переменной|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|21:   _prop_Ind:integer;|37:   Ind, onSharedIntVarGet: THI_Event;|60:   Procedure doSharedIntVarGet(var _Data:TData; Index:Word);|0:|5: end;|1: |78:function SharedIntVarGet(i:integer):integer; stdcall; external 'HiAsmMQL.dll';|0:|14:implementation|0:|40:Procedure THiAsmClass.doSharedIntVarGet;|3:var|12:  i:integer;|14:  out:integer;|0:|5:begin|29:  i:= readinteger(_Data,Ind);|27:  out:= SharedIntVarGet(i);|37:  _hi_OnEvent(onSharedIntVarGet,out);|4:end;|0:|4:end.|
 link(onSharedIntVarGet,11427307:doMessage,[])
 link(Ind,13986349:Value,[])
}
Add(Message,11427307,518,329)
{
}
Add(Memory,13986349,455,280)
{
 Default=Integer(0)
}
Add(InlineCode,206227,448,217)
{
 @Hint=#45:Вызов функции SharedStrVarGet из HiAsmMQL.dll|
 WorkPoints=#66:doSharedIntVarSet=Вызывает функцию SharedIntVarSet из HiAsmMQL.dll|
 DataPoints=#36:InTxt=Строка, передаваемая в функцию|34:Ind=Индекс выбора общей переменной|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|22:   _prop_InTxt:string;|21:   _prop_Ind:integer;|25:   InTxt, Ind: THI_Event;|60:   Procedure doSharedIntVarSet(var _Data:TData; Index:Word);|0:|5: end;|1: |86:procedure SharedIntVarSet(InTxt:integer; i:integer); stdcall; external 'HiAsmMQL.dll';|0:|14:implementation|0:|40:Procedure THiAsmClass.doSharedIntVarSet;|3:var|12:  i:integer;|14:  txt:integer;|0:|5:begin|29:  i:= ReadInteger(_Data,Ind);|33:  txt:= ReadInteger(_Data,InTxt);|26:  SharedIntVarSet(txt, i);|4:end;|0:|4:end.|
 link(InTxt,10680287:Value,[(454,201)(412,201)])
 link(Ind,5491783:Value,[])
}
Add(Edit,5629726,126,175)
{
 Left=275
 Top=35
 Width=160
}

#include "stdafx.h"
#include <iostream>

#define MT4_EXPFUNC __declspec(dllexport)

using namespace std;

#pragma data_seg(".shared")
#pragma comment(linker,"/SECTION:.shared,RWS")
#pragma data_seg()
__declspec(allocate(".shared")) string SharedStrVar1, SharedStrVar2;
__declspec(allocate(".shared")) int SharedIntVar1, SharedIntVar2;

// Строковые переменные
MT4_EXPFUNC void __stdcall SharedStrVarSet(char *InTxt, int i)
{
	string InStr;
	InStr = InTxt;

	switch(i)
	{
	case 0:
		SharedStrVar1 = InStr;
		break;
	case 1:
		SharedStrVar2 = InStr;
		break;
	}
}

MT4_EXPFUNC char* __stdcall SharedStrVarGet(int i)
{
	std::string str1(SharedStrVar1);
	std::string str2(SharedStrVar2);
	char* s1 = new char[str1.length()+1]();
	char* s2 = new char[str2.length()+1]();
	strcpy(s1, str1.c_str());
	strcpy(s2, str2.c_str());

	char* out;
	switch(i)
	{
	case 0:
		out = s1;
		break;
	case 1:
		out = s2;
		break;
	}
	return (out);
}

// Переменные целых чисел
MT4_EXPFUNC void __stdcall SharedIntVarSet(int InInt, int i)
{
	switch(i)
	{
	case 0:
		SharedIntVar1 = InInt;
		break;
	case 1:
		SharedIntVar2 = InInt;
		break;
	}
}

MT4_EXPFUNC int __stdcall SharedIntVarGet(int i)
{
	int out;
	switch(i)
	{
	case 0:
		out = SharedIntVar1;
		break;
	case 1:
		out =SharedIntVar2;
		break;
	}
	return out;
}

#cpp
#include "stdafx.h"

#define MT4_EXPFUNC __declspec(dllexport)

using namespace std;

// Создаем разделяемую секцию.
#pragma data_seg(".shared")
#pragma comment(linker,"/SECTION:.shared,RWS")
#pragma data_seg()

// Максимальная длина строки, в символах.
int const MaxStringLength = 65535;

/* Статическая проверка (опционально)

static_assert(0 != MaxStringLength, "MaxStringLength cannot be 0.");

*/

// Выделяем буфер в разделяемой секции и заполняем его нулями.
// В буфере должно быть место для строки и завершающего нуля.
__declspec(allocate(".shared")) char SharedStrVar1[MaxStringLength + 1] = {0};
__declspec(allocate(".shared")) char SharedStrVar2[MaxStringLength + 1] = {0};
__declspec(allocate(".shared")) char SharedStrVar3[MaxStringLength + 1] = {0};



// Функция записи строки в разделяемый буфер.
void __stdcall SharedStrVarSet(char* InStr, int i)
{   
    // Учитываем ситуацию с переполнением буфера.
    if (MaxStringLength < lstrlenA(InStr))
    {
        return;
    }
	// Копируем строку в буфер.
	switch(i)
	{
	case(0):
		lstrcpyA(SharedStrVar1, InStr);
		break;
	case(1):
		lstrcpyA(SharedStrVar2, InStr);
		break;
	case(2):
		lstrcpyA(SharedStrVar3, InStr);
		break;
	}
}


// Функция чтения строки из разделяемого буфера.
char* __stdcall SharedStrVarGet(int i)
{
	char* out;
	switch(i)
	{
	case(0):
		out = SharedStrVar1;
		break;
	case(1):
		out = SharedStrVar2;
		break;
	case(2):
		out = SharedStrVar3;
		break;
	}
	return out;
}