AnsiString __fastcall DLL_EI ServerVersionAPI(AnsiString Path, AnsiString User, AnsiString Password)
{
   AnsiString Ver= "";
 
   TISC_DB_HANDLE db=0 ;
   char *gdb_name= 0 ,*user_name= 0 ,*user_password= 0 ,*dpb_buffer= 0 ,*res_buffer= 0 ;
   ISC_STATUS status_vector[ 20 ];
   short dpb_length= 0 ;
   bool Connected=false;
   int size_res_buffer= 10240 ;

   try
     {
        try
          {
             gdb_name=new char [ 1024 ];
             user_name=new char [ 1024 ];
             user_password=new char [ 1024 ];
             dpb_buffer=new char [ 1024 ];
             res_buffer=new char [size_res_buffer];
          }
        catch(std::bad_alloc)
          {
             throw Exception(ExtractFileName(__FILE__)+"( "+__LINE__+" ): ServerVersionAPI() Insufficient memory ");
          }

        strcpy(gdb_name,Path.c_str());
        strcpy(user_name,User.c_str());
        strcpy(user_password,Password.c_str());

        *(dpb_buffer+dpb_length++)=Ibheader::isc_dpb_version1;
        *(dpb_buffer+dpb_length++)=Ibheader::isc_dpb_user_name;
        *(dpb_buffer+dpb_length++)=strlen(user_name);
        strcpy(dpb_buffer+dpb_length,user_name);
        dpb_length+=*(dpb_buffer+dpb_length-1 );
        *(dpb_buffer+dpb_length++)=Ibheader::isc_dpb_password;
        *(dpb_buffer+dpb_length++)=strlen(user_password);
        strcpy(dpb_buffer+dpb_length,user_password);
        dpb_length+=*(dpb_buffer+dpb_length- 1 );

        isc_attach_database(status_vector,strlen(gdb_name),gdb_name,&db,dpb_length,dpb_buffer);

        if(status_vector[ 0 ]== 1  && status_vector[ 1 ])
          {
             Ver=InterpreteIBErrorCodeAPI(status_vector);
             throw Exception(ExtractFileName(__FILE__)+"( "+__LINE__+" ): ServerVersionAPI() "+Ver);
          }

        Connected=true;

...