BorlandTalk.com

--== Alain ==-- · Guest

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;
}

Danzer · Guest

--== Alain ==-- wrote:

Bob Gonder · Guest

--== Alain ==-- wrote:

See my answer in the Language group, where you also posted this
question.