Строковая функция DLL не работает на Build 600

 

Привет кодеры!

Я написал DLL функцию в Delphi. Этот код возвращает только текст PChar в ex4.

ibrary get_text;

uses
  SysUtils,
  Math,
  idHttp;

{$R *.res}

var

function get_text(): PChar; stdcall;
begin
  result := PChar('Hello world!');
end;


exports
  get_text;

begin
end.

Мой код для MQ4:

#import "get_text.dll"
   string get_text();
#import

int init(){

   Print("DLL says: ",get_text());

}

Это решение работает на Build 509, но на Build 600. На Build 600 вывод экспертов: "DLL says: ???????????x??????????????".

Почему не работает на B600? Есть ли у вас идеи, как сделать так, чтобы мой код работал правильно?

Заранее благодарю.

Relative

 
Relative:

Это решение работает на Build 509, но не работает на Build 600. На Build 600 эксперты выводят следующее: "DLL says: ???????????x??????????????".

v600 использует строки Unicode, а не Ansi. Вам нужно либо вернуть строку Unicode из вашей DLL (более простой путь), либо сделать несколько довольно сложных вызовов в коде MQL4 для манипулирования возвращаемым значением строки (более сложный путь).

В любом случае, это приведет к утечке памяти, потому что вы выделяете блок памяти для строки, который MT4 не знает, как освободить, и не освободит. Лучше передать DLL буфер, а DLL скопирует строку в этот буфер. Другими словами, для возврата строковых значений в MQL4 лучше использовать методы, аналогичные вызовам Windows API, таким как GetWindowsDirectory() и GetTempPath().

 
gchrmt4:

либо вам придется делать довольно сложные вызовы в коде MQL4, чтобы манипулировать возвращаемым значением строки (более сложный путь).

К сведению, по-прежнему можно использовать DLL, возвращающие строки Ansi; это своего рода продолжение https://www.mql5.com/en/forum/149321. Проблема заключается в том, что при возврате строк из DLL происходит утечка памяти, если только код MQL4 не знает, как была выделена память, и не может ее освободить. В следующем примере предполагается, что память для строк была выделена в DLL с помощью LocalAlloc() или какого-либо косвенного эквивалента, который отображается на LocalAlloc().

#import "SomeDllWhichReturnsAnsiStrings.dll"
   // Declare the Ansi function as returning int rather than string 
   int Test();  // NOT  string Test();
#import

#import "kernel32.dll"
   int lstrlenA(int);
   void RtlMoveMemory(uchar & arr[], int, int);
   int LocalFree(int); // May need to be changed depending on how the DLL allocates memory
#import

void OnStart()
{
   // Call the DLL function and get its block of string memory as an int pointer to the
   // memory rather than as a string 
   int ptrStringMemory = Test();
   
   // Get the length of the string 
   int szString = lstrlenA(ptrStringMemory);
   
   // Create a uchar[] array whose size is the string length (plus null terminator)
   uchar ucValue[];
   ArrayResize(ucValue, szString + 1);
   
   // Use the Win32 API to copy the string from the block returned by the DLL
   // into the uchar[] array
   RtlMoveMemory(ucValue, ptrStringMemory, szString + 1);
   
   // Convert the uchar[] array to a MQL string
   string strValue = CharArrayToString(ucValue);

   // Free the string memory returned by the DLL. This step can be removed but, without it,
   // there will be a memory leak.
   // The correct method for freeing the string *depends on how the DLL allocated the memory*
   // The following assumes that the DLL has used LocalAlloc (or an indirect equivalent). If not,
   // then the following line may not fix the leak, and may even cause a crash.
   LocalFree(ptrStringMemory);   
   
   // Done...
   Print(strValue);
}
 
Спасибо gchrmt4!
 

gchrmt4
:

К сведению, по-прежнему можно использовать DLL, возвращающие строки Ansi; это своего рода продолжение https://www.mql5.com/en/forum/149321. Проблема заключается в том, что при возврате строк из DLL происходит утечка памяти, если только код MQL4 не знает, как была выделена память, и не может ее освободить. Следующий пример предполагает, что память для строк была выделена в DLL с помощью LocalAlloc() или какого-либо косвенного эквивалента, который отображается на LocalAlloc().

Спасибо! Это также сработало для моей libmysql.dll. Мой MQL4 больше не может общаться с MySQL после сборки 600.

Наконец-то я могу хотя бы увидеть, что возвращает MySql dll...

Подскажите, пожалуйста, как реализовать обратную связь, т.е. передать строку из MQL4 (билд 600) в dll, которая поддерживает только ANSI? Я пробовал использовать функцию UNICODE2ANSI(), найденную здесь и здесь, но она, к сожалению, не работает.
 
lukins:

Подскажите, пожалуйста, как реализовать обратную связь, т.е. передать строку из MQL4 (build 600) в dll, которая поддерживает только ANSI?

Это дальше на той же странице! См. https://www. mql5.com/en/forum/149321
 
gchrmt4:
Дальше на той же странице! См. https://www. mql5.com/en/forum/149321


Спасибо! Это работает для простых строковых значений просто идеально. По крайней мере, MQL теперь подключается к MySQL.

Однако похоже, что я не могу получить массив строк из dll. Вот функция, которую мне предоставляют (это обертка MQL4 MySql):

#import "mysql_wrapper.dll"
void     MT4_mysql_fetch_row   (int result, string& row[]);

В настоящее время я получаю ошибку "Access violation read to 0x0..." при передаче обычного массива строк MQL.

Любая помощь будет высоко оценена.

 
Аналогичная ошибка (Access violation) возникает, когда я передаю "int & row[]" и пытаюсь преобразовать каждый элемент внутри него после его заполнения.
 
lukins:

Однако похоже, что я не могу получить массив строк из dll. Вот функция, которую мне предоставили (это обертка MQL4 MySql):

Имитация старых строковых массивов Ansi муторна, но все же возможна. (Это зависит от того, насколько хорошо ведет себя DLL, особенно если она передает данные обратно в MQL4, изменяя содержимое массива. Я проверил это только на примере C++ кода внизу, а не на чем-то более реалистичном, как библиотека MySql).

#import "SomeDllWhichTakesAStringArray.dll"
   // Old Ansi function which takes a string array plus a parameter telling it 
   // the size of the array
   void Test(int & arr[], int);  // NOT  void Test(string & arr[], int)
#import

#import "kernel32.dll"
   int LocalAlloc(int,int);
   int LocalFree(int);
   int lstrcpyA(int,uchar & arr[]);
   int lstrlenA(int);
   void RtlMoveMemory(uchar & arr[], int, int);
#import

void OnStart()
{
   // Example array of strings...
   string MyStringArray[] = {"String 1", "String 2"};
   int SizeOfStringArray = ArraySize(MyStringArray);
   
   
   
   // A string array (received by the DLL as an array of MqlStr structures) corresponds
   // to an int array where the even-numbered members are string lengths, and the odd-numbered
   // members are pointers to string memory.
   // We start by creating an int array, which needs to have twice as many members as the
   // string array
   int i;
   int arrMqlStr[];
   ArrayResize(arrMqlStr, SizeOfStringArray * 2);
   
   // Populate the array which simulates MqlStr[]. For each string, we allocate 
   // a block of memory using LocalAlloc() and copy the MQL4 string into that
   for (i = 0; i < SizeOfStringArray; i++) {
      // Get the length of the string and store it
      int szString = StringLen(MyStringArray[i]);
      arrMqlStr[i * 2] = szString;
   
      // Allocate a block of memory to hold the string 
      int ptrMem = LocalAlloc(0x40 /* LPTR */, szString + 1);
      arrMqlStr[(i * 2) + 1] = ptrMem;

      // Convert the MQL4 string to a uchar[] array
      uchar ucString[];
      StringToCharArray(MyStringArray[i], ucString);
 
      // Copy the uchar[] array into the block of memory allocated above
      lstrcpyA(ptrMem, ucString);     
   }

   // Call the DLL function
   Test(arrMqlStr, SizeOfStringArray);

   // We now need to free the memory which was allocated above to hold
   // a copy of each string. In addition, DLLs can alter strings which
   // are passed to them in arrays. Therefore, for completeness, we
   // should read the strings back and put them into the original
   // array
   for (i = 0; i < SizeOfStringArray; i++) {
      // Get the size of the string now contained in the memory block
      int NewSizeofString = lstrlenA(arrMqlStr[(i * 2) + 1]);
      
      // Copy the contents of the memory block into a uchar[] array
      uchar ucReceive[];
      ArrayResize(ucReceive, NewSizeofString + 1);
      RtlMoveMemory(ucReceive, arrMqlStr[(i * 2) + 1], NewSizeofString + 1);

      // Put the uchar[] back into the original string array
      MyStringArray[i] = CharArrayToString(ucReceive);
      
      // Free the memory for the string allocated above
      LocalFree(arrMqlStr[(i * 2) + 1]);
   }
}

Например, приведенный выше код работает со следующей DLL, которая делает окно сообщения для каждой строки в массиве, а затем меняет строку на противоположную перед возвратом в MT4:

__declspec(dllexport) void WINAPI Test(MqlStr * arr, int sz)
{
        for (int i = 0; i < sz; i++) {
                MessageBoxA(NULL, arr->data, "String", 48);
                strrev(arr->data);
                arr++;
        }
}
 
gchrmt4:

Имитация старых строковых массивов Ansi - дело муторное, но все же возможное.

(Приведенный выше код можно упростить, если MQL4 передает строковый массив в DLL только для того, чтобы предоставить ей строковый буфер для записи в DLL. Приведенный выше код должен справиться с этим сценарием, но он неоправданно сложен для вызова DLL только на прием).
 
gchrmt4:
(Приведенный выше код может быть упрощен, если MQL4 передает строковый массив в DLL только для того, чтобы дать ей строковый буфер для записи в DLL. Приведенный выше код должен справиться с этим сценарием, но он неоправданно сложен для вызова DLL только на прием).

Если Ansi DLL принимает параметр строкового массива только для того, чтобы передать обратно значение в arr[0], то код может быть намного проще. Например:

#import "AnsiDllWhichPassesBackAStringValueViaAnArray.dll"
   // Old Ansi function which takes a string array parameter **solely** so that 
   // it can **pass back** a value in arr[0]
   void Test(int & arr[]);  // NOT  void Test(string & arr[])
#import

#import "kernel32.dll"
   int LocalAlloc(int,int);
   int LocalFree(int);
   void RtlFillMemory(int, int, int);
   int lstrlenA(int);
   void RtlMoveMemory(uchar & arr[], int, int);
#import

void OnStart()
{
   // Maximum size of string which the DLL is expected to return in arr[0]
   int MaxReturnValueLength = 10000;
   
   // Allocate a block of memory of the desired size
   int ptrMem = LocalAlloc(0x40 /* LPTR */, MaxReturnValueLength + 1);
   
   // Fill the memory with spaces so that the length is <whatever> if 
   // the DLL checks it by doing strlen()
   RtlFillMemory(ptrMem, MaxReturnValueLength, 32);

   // Create a pseudo-MqlStr array which corresponds to a string array with one member
   int arrMqlStr[2];
   arrMqlStr[0] = MaxReturnValueLength;
   arrMqlStr[1] = ptrMem;
   
   // Call the DLL
   Test(arrMqlStr);

   // Get the size of the string contained in the memory block
   int NewSizeofString = lstrlenA(ptrMem);
      
   // Copy the contents of the memory block into a uchar[] array
   uchar ucReceive[];
   ArrayResize(ucReceive, NewSizeofString + 1);
   RtlMoveMemory(ucReceive, ptrMem, NewSizeofString + 1);
   
   // Free the memory for the string allocated above
   LocalFree(ptrMem);
   
   // Convert the uchar[] array to a string 
   string strReturnValueFromDLL = CharArrayToString(ucReceive);
}

Это работает с DLL, которая просто использует array[0] в качестве буфера, в который она может записывать, например:

__declspec(dllexport) void WINAPI Test(MqlStr * arr)
{
        lstrcpyA(arr->data, "The string return value from the DLL");
}