Ошибка ДЛЛ для связи весового контроллера с ПК

void __fastcall TMainForm::sButton1Click(TObject *Sender)
{
int p_uScalesType=33;
double p_uValue;
int p_uErrorTextBufferLegth=100;
char t;
LPSTR p_szErrorTextBuffer="";
if (Scales_Register("Test Scales", p_uScalesType, "COM3", 9600, 8, 0, 0, 1, "", p_szErrorTextBuffer, p_uErrorTextBufferLegth)==false)
{
if (Scales_GetImmediateValue("Test Scales", p_uValue, p_szErrorTextBuffer, p_uErrorTextBufferLegth))// !!!Access Violetion ошибка.
{
        glDigits1->Value=0000;
        ShowMessage(AnsiString("True"));
}
else
ShowMessage(AnsiString("False"));
}
 
ShowMessage(p_szErrorTextBuffer);
 
}

char p_szErrorTextBuffer[50];

Scales_GetImmediateValue("Test Scales", p_uValue, p_szErrorTextBuffer, p_uErrorTextBufferLegth

//================================================================
#ifndef ScalesLib_h
#define ScalesLib_h
//================================================================
 
#include <windows.h>
#include "SerialConstants.h"
 
//================================================================
 
//================================================================
 
#ifdef __cplusplus
    extern "C" {
#endif
 
//================================================================
enum EScalesType
//----------------------------------------------------------------
{
    c_uScalesType_MetlerToledoSics      = 0x01,
    c_uScalesType_MetlerToledoCougar    = 0x02,
    c_uScalesType_MetlerToledoPrint     = 0x03,
    c_uScalesType_MetlerToledoCougarVS  = 0x04,
    c_uScalesType_HbmWe2110             = 0x11,
    c_uScalesType_HbmAd101              = 0x12,
    c_uScalesType_SystecIt3000          = 0x21
};
 
//================================================================
void Scales_Emulate(BOOL p_bEmulationMode);
 
//================================================================
BOOL Scales_ReadIniFile();
 
//================================================================
BOOL Scales_Register
//----------------------------------------------------------------
(   IN  LPCTSTR     p_szName,
    IN  EScalesType p_uScalesType,
    IN  LPCTSTR     p_szPortName,
    IN  EBaudRate   p_uBaudRate,
    IN  EDataBits   p_uDataBits,
    IN  EParity     p_uParity,
    IN  EStopBits   p_uStopBits,
    IN  BYTE        p_uAddress,
    IN  LPCTSTR     p_szLicenseInfo,
    OUT LPTSTR      p_szErrorTextBuffer,
    IN  UINT        p_uErrorTextBufferLength
);
 
//================================================================
BOOL Scales_GetImmediateValue
//----------------------------------------------------------------
(   IN  LPCTSTR     p_szName,
    OUT DOUBLE&     p_uValue,
    OUT LPTSTR      p_szErrorTextBuffer,
    IN  UINT        p_uErrorTextBufferLength
);
 
//================================================================
BOOL Scales_GetStableValue
//----------------------------------------------------------------
(   IN  LPCTSTR     p_szName,
    OUT DOUBLE&     p_uValue,
    OUT LPTSTR      p_szErrorTextBuffer,
    IN  UINT        p_uErrorTextBufferLength
);
 
//================================================================
 
#ifdef __cplusplus
    } // extern "C"
#endif
 
//================================================================
#endif
//================================================================

/*
Визначені такі типи:
    EBaudRate
    EDataBits
    EParity
    EStopBits
    EValueType
*/
 
//================================================================
#ifndef SerialConstants_h
#define SerialConstants_h
//================================================================
 
#include <windows.h>
 
//================================================================
enum    EBaudRate
//----------------------------------------------------------------
{
    c_uBaudRate_110     = CBR_110,
    c_uBaudRate_300     = CBR_300,
    c_uBaudRate_600     = CBR_600,
    c_uBaudRate_1200    = CBR_1200,
    c_uBaudRate_2400    = CBR_2400,
    c_uBaudRate_4800    = CBR_4800,
    c_uBaudRate_9600    = CBR_9600,
    c_uBaudRate_14400   = CBR_14400,
    c_uBaudRate_19200   = CBR_19200,
    c_uBaudRate_38400   = CBR_38400,
    c_uBaudRate_57600   = CBR_57600,
    c_uBaudRate_115200  = CBR_115200,
    c_uBaudRate_128000  = CBR_128000,
    c_uBaudRate_256000  = CBR_256000
};
 
//================================================================
enum    EDataBits
//----------------------------------------------------------------
{
    c_uDataBits_5   = 5,
    c_uDataBits_6   = 6,
    c_uDataBits_7   = 7,
    c_uDataBits_8   = 8,
};
 
//================================================================
enum    EParity
//----------------------------------------------------------------
{
    c_uParity_None  = NOPARITY,
    c_uParity_Even  = EVENPARITY,
    c_uParity_Odd   = ODDPARITY,
    c_uParity_Mark  = MARKPARITY,
    c_uParity_Space = SPACEPARITY   
};
 
//================================================================
enum    EStopBits
//----------------------------------------------------------------
{
    c_uStopBits_1   = ONESTOPBIT,
    c_uStopBits_1_5 = ONE5STOPBITS,
    c_uStopBits_2   = TWOSTOPBITS
};
 
//================================================================
#endif
//================================================================

int p_uErrorTextBufferLegth=100;
char p_szErrorTextBuffer[100];

   EScalesType p_uScalesType = c_uScalesType_SystecIt3000;  // 33
   double p_uValue;
   char t;
   char *p_szErrorTextBuffer ;
   UINT p_uErrorTextBufferLegth=100;
   if (Scales_Register("Test Scales", p_uScalesType, "COM3", c_uBaudRate_9600,
       c_uDataBits_8, c_uParity_None, c_uStopBits_1, 0 , "",
      p_szErrorTextBuffer, p_uErrorTextBufferLegth)==false)
   {
     if (Scales_GetImmediateValue(
      "Test Scales", p_uValue, p_szErrorTextBuffer, p_uErrorTextBufferLegth))// !!!Access Violetion îøèáêà.
     {
        glDigits1->Value=0000;
        ShowMessage(AnsiString("True"));
     } ...

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   double p_uValue;
 
   wchar_t *erbuff = { L"Default\0" };
   wchar_t *sname  = { L"Test Scales\0" };
 
     Scales1->Connect();
     Scales1->Register(sname, 33, L"COM3",9600, 8, 0, 1, 0 ,erbuff);
     p_uValue = Scales1->Get_ImmediateValue(sname);
 
   ShowMessage(FloatToStr(p_uValue));
}