C++ DLL에서 delphi 프로그램으로 double *을 반환하십시오.

Question

double (double *로 선언 된) 배열을 델파이 프로그램에 반환하려고합니다. C++ DLL 프로젝트에서 내가 C++ 콘솔 응용 프로그램에서 내 DLL을 테스트하는 동안 DLL이 내가 DLL에서 SomeMethod를 사용 후 바로 결과를 얻었다

BOOL APIENTRY DllMain(HMODULE hModule, 
    DWORD ul_reason_for_call, 
    LPVOID lpReserved 
    ) 
{ 

switch(ul_reason_for_call) 
{ 
... 

    case DLL_PROCESS_DETACH: 
     delete [] array; 
     break; 
} 
    return TRUE; // Successful DLL_PROCESS_ATTACH. 
} 

을 언로드 될 때

#define DllExport __declspec(dllexport) 
extern double* array; 
extern "C" 
{ 
    DllExport double* SomeMethod(double); 
} 

및 array가 삭제 가지고있다. 다음으로 델파이에서 DLL을 테스트하려고했지만 배열로 반환 된 메서드의 내용이 잘못되었습니다. 다음 코드를 사용했습니다.

TSomeMethod = function(level : Double): PDouble; cdecl; 
... 
var 
    SomeMethod: TSomeMethod; 
    arr: PDouble; 
... 
    if Assigned(SomeMethod) then 
     begin 
      arr:= SomeMethod(15); 
      writeln(arr^:2:0); 
      inc(arr); 
      writeln(arr^:2:0); 
     end 
... 

델파이에서 사용하는 double* C에서 ++ DLL을 반환하는 적절한 방법은 무엇입니까?

P. 다른 방법은 올바른 방식으로 작동합니다. 예를 들어 DLL은 char*를 반환하고 델파이에서 나는 PAnsiChar

UPDATE 여기

SomeMethod 기록 된 파일에서 일부 C++ 코드가를 사용하여 얻었다.

double* array; // yea it's an array that declared as external in other file; 
... 
double* SomeMethod(double level) 
{ 
    ... 
    deque<double> arrayToReturn; 
    ... // some actions with deque 
    array= new double[arrayToReturn.size()]; 
    for (unsigned int i = 0; i<arrayToReturn.size(); i++) 
     array[i] = arrayToReturn[i]; 
    return array; 
} 

Answer 1

문제의 코드는 정상적으로 작동합니다. 이는 문제가 다른 곳에 있다는 것을 의미합니다.

C++

#include <Windows.h> 

BOOL APIENTRY DllMain(HMODULE hModule, 
    DWORD ul_reason_for_call, 
    LPVOID lpReserved 
    ) 
{ 
    switch (ul_reason_for_call) 
    { 
    case DLL_PROCESS_ATTACH: 
    case DLL_THREAD_ATTACH: 
    case DLL_THREAD_DETACH: 
    case DLL_PROCESS_DETACH: 
     break; 
    } 
    return TRUE; 
} 

extern "C" { 

__declspec(dllexport) double* SomeMethod(double) 
{ 
    double* array = new double[2]; 
    array[0] = 42; 
    array[1] = 666; 
    return array; 
} 

} 

델파이

{$APPTYPE CONSOLE} 

uses 
    Windows, SysUtils; 

type 
    TSomeMethod = function(level : Double): PDouble; cdecl; 

var 
    SomeMethod: TSomeMethod; 
    arr: PDouble; 
    lib: HMODULE; 

begin 
    lib := LoadLibrary('MyDll.dll'); 
    Win32Check(lib<>0); 
    SomeMethod := GetProcAddress(lib, 'SomeMethod'); 
    Win32Check(Assigned(SomeMethod)); 
    arr:= SomeMethod(15); 
    Writeln(arr^:3:0); 
    inc(arr); 
    Writeln(arr^:3:0); 
    Readln; 
end. 

출력

 
42 
666