🚀 go-pugleaf

Hi there,

I'm dealing with a DLL and i'm getting Access Violation Errors continously.What is wrong with my code?

Analyzer

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include "hllapi.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;

typedef WORD WINAPI(*THllapiEntry) (int *, char *, int *, int *);

HWND DllHandle = LoadLibrary("PCSHLL32");

THllapiEntry EntryPoint = (THllapiEntry)GetProcAddress( DllHandle, "HLLAPI" );

bool FConnected;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
 int Func;
 int Alen;
 int RetC;
 AnsiString ShortName = "A";

  Func = CONNECTPS;
  Alen = 1;
  RetC = 0;
  EntryPoint( &Func, ShortName.c_str(), &Alen, &RetC );
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString Txt;
  int FRows,FCols;
  FRows = 80;FCols = 25;

  Txt.SetLength( FRows * FCols );
  int Func = COPYPS;
  int Alen = FRows * FCols;
  int RetC = 0;
  EntryPoint( &Func, Txt.c_str(), &Alen, &RetC);

ShowMessage("*"+Txt+"*");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
int Func = DISCONNECTPS;
    int Alen = 1;
    RetC = 0;
    EntryPoint( &Func, ShortName.c_str(), &Alen, &RetC );

    FConnected = false;

    Func = RESETSYSTEM;
    Alen = 0;
    RetC = 0;
    EntryPoint( &Func, NULL, &Alen, &RetC );

  FreeLibrary( DllHandle );
}
//---------------------------------------------------------------------------