🚀 go-pugleaf

Hi,

I have old DLLs which contain stringtable as resource.
if i use them via my DLL class wrapper, everything works well.

Now i've created a new DLL via BDS2006, *.h and *.cpp file are similar 
to old DLL files. when i compile the new DLL everything is ok.

I have problem when i use it.
BDS2006 returns me the following error :
Project TESTLNG.exe raised exception class EAccessViolation with message 
'Access violation at address 00000000. Read of address 00000000'

the problem seems to be located to the GetResStr function.

here is my *.h file of my class wrapper:
//---------------------------------------------------------------------------
#include <System.hpp>

#ifndef CARDLLWrapperH
#define CARDLLWrapperH

//------------------------------------------------------------------------------
static HINSTANCE m_hlibLoc;
String FAR __pascal (*locGetString)(long);

class CARDLLWrapper
{
   private:
   public:
     HINSTANCE __fastcall InitializeLoc(AnsiString DLLName);
     void __fastcall TerminateLoc(HINSTANCE hlibLoc);
     String __fastcall GetResStr(long Index);
};
//---------------------------------------------------------------------------
#endif



here is my *.cpp file :
//---------------------------------------------------------------------------
#pragma hdrstop
#include "CARDLLWrapper.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//------------------------------------------------------------------------------
HINSTANCE __fastcall CARDLLWrapper::InitializeLoc(AnsiString DLLName)
{
     m_hlibLoc=LoadLibrary((DLLName + String(".dll")).c_str());
     if (m_hlibLoc != NULL)
     {
       (FARPROC) locGetString=GetProcAddress(m_hlibLoc,"GETSTRING");
        return m_hlibLoc;
     }
     else
     {
         return 0;
     }
}
//------------------------------------------------------------------------------
String __fastcall CARDLLWrapper::GetResStr(long Index)
{
     static String strRes;
     strRes=locGetString(Index);
     return strRes;
}

in my DLL locGetString is declared as following :

extern "C" String __export GetString(int Index);

String GetString(int Index)
{
     String res=AnsiString::LoadStr((int)Index);
     return res;
}