#cpp
void SharedDoubleArrGet(double outArr[])

Add(MainForm,2953706,175,210)
{
 Width=444
 link(onCreate,16486207:doData,[])
}
Add(CallDllEx,15369058,336,336)
{
 DLLName="HiAsmMQL.dll"
 Point(doDLLName)
 link(onFunc,11093566:doMessage,[])
}
Add(Button,8511547,210,336)
{
 Left=370
 Top=35
 Caption="Go"
 Data=Integer(0)
 link(onClick,186573:doData,[])
}
Add(Message,11093566,392,336)
{
}
Add(Button,12861727,210,385)
{
 Left=10
 Top=10
 Caption="Load dll"
 link(onClick,16148391:doExecute,[])
}
Add(ODialog,16148391,273,385)
{
 link(onExecute,15369058:doDLLName,[(321,391)(321,349)])
}
Add(Edit,701284,273,287)
{
 Left=10
 Top=35
 Width=355
 Text="SharedDoubleArrGet;&Arr;NULL"
}
Add(DoData,186573,273,336)
{
 link(onEventData,15369058:doCallFuncStr,[])
 link(Data,701284:Text,[])
}
Add(RealArray,3435453,273,175)
{
 RealArray=['0'=0]
 FileFormat=1
}
Add(GlobalVar,5661738,322,224)
{
 Name="Arr"
}
Add(DoData,16486207,273,224)
{
 link(onEventData,5661738:doValue,[])
 link(Data,3435453:Array,[])
}

#cpp
#include "stdafx.h"

#define MT4_EXPFUNC __declspec(dllexport)

#pragma data_seg(".shared")
#pragma comment(linker,"/SECTION:.shared,RWS")
#pragma data_seg()
__declspec(allocate(".shared")) double SharedDoubleArr[1024];
__declspec(allocate(".shared")) int SharedIntArr[1024];


MT4_EXPFUNC void __stdcall SharedDoubleArrSet(double inArr[])
{
	memcpy(SharedDoubleArr, inArr, sizeof(*SharedDoubleArr)*10);
}

MT4_EXPFUNC void __stdcall SharedDoubleArrGet(double outArr[])
{
	memcpy(outArr, SharedDoubleArr, sizeof(*outArr)*10);
}

#cpp
#include "stdafx.h"

#define MT4_EXPFUNC __declspec(dllexport)

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

// Строковые переменные
MT4_EXPFUNC void __stdcall SharedStrVarSet(char *InTxt, int i)
{
	switch(i)
	{
	case 0:
		SharedStrVar1 = InTxt;
		break;
	case 1:
		SharedStrVar2 = InTxt;
		break;
	}
}

MT4_EXPFUNC char* __stdcall SharedStrVarGet(int i)
{
	char* out;
	switch(i)
	{
	case 0:
		out = SharedStrVar1;
		break;
	case 1:
		out =SharedStrVar2;
		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;
}

#pas
begin
  i:= ReadInteger(_Data,Ind);
  txt:= PChar(ReadString(_Data,InTxt));
  SharedStrVarSet(txt, i);
end;

#pas
begin
  i:= ReadInteger(_Data,Ind);
  SharedStrVarSet('Hello', i);
end;

#pas
var txt:string;
begin
  i:= ReadInteger(_Data,Ind);
  txt:= ReadString(_Data,InTxt) + #0;
  SharedStrVarSet(@txt[1], i);
end;