2021-09-12 22:14:42 +02:00

80 lines
5.1 KiB
C

#include <vcl\bde.hpp>
#define DEF_MDXEXT ".MDX"
#define DEF_MAXREPOPENTABLE 15
#define TAMANO_DATE_DBF 8
#define DSCERR_NOINITDBI "Librería no inicializada"
#define DSCERR_NOMEMRECBUF "Insuficiente memoria buffer tabla"
#define DSCERR_NOMEMDESCFLD "Insuficiente memoria campos tabla"
#define DIM_FECHA 10
#define DIM_HORA 8
#define DIM_FICHEROTXT 50
#define NUMERO_MAXIMO_ARRAY 99
#define BDE_FIN_FICHERO DBIERR_EOF
#define BDE_SIN_ERROR DBIERR_NONE
typedef struct
{
hDBICur hCur;
PBYTE pRecBuf;
CURProps curProps;
RECProps recProps;
pFLDDesc pFldArray;
bool bTablaAbierta;
} dbiTabla;
extern "C" __declspec(dllexport) void LiberarMemoria(char *Memoria);
extern "C" __declspec(dllexport) char * ReservarMemoria(dbiTabla* psT,char *pszCampo);
extern "C" __declspec(dllexport) bool ComprobarNomFichError(char *Nombre);
extern "C" __declspec(dllexport) void CapturarFechaHora(char *pszFecha,char *pszHora);
extern "C" __declspec(dllexport) void GenerarError(char *Error);
extern "C" __declspec(dllexport) int IndCampo (dbiTabla* psT,char* pszCampo);
extern "C" __declspec(dllexport) DBIResult AnsiToNativo (char *pszAnsi,char *pszNativo);
extern "C" __declspec(dllexport) DBIResult InicializarBDE(char *pszIniFile);
extern "C" __declspec(dllexport) DBIResult ConectarBDE(char *pszBaseDatos,hDBIDb *hBaseDatos);
extern "C" __declspec(dllexport) DBIResult DesconectarBDE (hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult FinalizarBDE (void);
extern "C" __declspec(dllexport) DBIResult CargarDirBDE (char *pszDir,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult AbrirTablaBDE (dbiTabla *psT, char *pszNombreTabla,char *pszNombreTag,bool bExclusivo,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CerrarTablaBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult ContarRegBDE (dbiTabla* psT,int *nRN);
extern "C" __declspec(dllexport) DBIResult NumRegBDE (dbiTabla* psT,int *nRN);
extern "C" __declspec(dllexport) DBIResult IrRegBDE (dbiTabla* psT,int nNumRec,bool *bRD);
extern "C" __declspec(dllexport) DBIResult EstaRegBorBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BorrarRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult RecRegBorBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult VerBorradosBDE (dbiTabla* psT,bool bON);
extern "C" __declspec(dllexport) DBIResult IrPrimerRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrUltimoRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrSiguienteRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult IrAnteriorRegBDE (dbiTabla* psT,bool *bRD);
extern "C" __declspec(dllexport) DBIResult SelIndBDE (dbiTabla* psT,char* szNombreTag);
extern "C" __declspec(dllexport) DBIResult BuscarValorExactoBDE (dbiTabla *psT,char *pszValor,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BuscarValorAproxBDE (dbiTabla *psT,char *pszValor,bool *bRD);
extern "C" __declspec(dllexport) DBIResult BlanquearRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult AnadirRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult LeerCampoBDE (dbiTabla* psT,int nInd,char *pszValor,bool *bVacio);
extern "C" __declspec(dllexport) DBIResult LeerCampoNBDE (dbiTabla* psT,char* szNombre,char *pszValor,bool *bVacio);
extern "C" __declspec(dllexport) DBIResult ModificarCampoBDE (dbiTabla* psT,int nInd,char *pszValor);
extern "C" __declspec(dllexport) DBIResult ModificarCampoNBDE (dbiTabla* psT,char *pszNombre,char *pszValor);
extern "C" __declspec(dllexport) DBIResult DuplicarRegBDE (dbiTabla* psT);
extern "C" __declspec(dllexport) DBIResult EliminarBorradosTablaBDE (dbiTabla *psT,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult VaciarTablaBDE (dbiTabla *psT,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult ReindexarTablaBDE (dbiTabla *psT);
extern "C" __declspec(dllexport) DBIResult CopiarTablaBDE (char *pszNomOrigTable,char *pszNomDestTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult RenombrarTablaBDE (char *pszNomOldTable,char *pszNomNewTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult BorrarTablaBDE (char *pszNomTable,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CopiarEstruTablaBDE (dbiTabla *psT,char *pszNomDestTabla,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult CopiarATextoBDE (dbiTabla* psT,char *pszNomText,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult AnadirDesdeTextoBDE (dbiTabla* psT,char *pszNomText,hDBIDb hBaseDatos);
extern "C" __declspec(dllexport) DBIResult SelecReintBloqueoBDE (int nSegundos);
extern "C" __declspec(dllexport) int ConseguirLongitud(dbiTabla* psT,char *pszCampo);
extern "C" __declspec(dllexport) void LeerArrayCampoBDE(dbiTabla* psT,char* pszCampo,char **CampoN, BYTE byRango);
extern "C" __declspec(dllexport) void EscribirArrayCampoBDE(dbiTabla *psT,char *pszCampo,char **pszsCampoN, BYTE byRango);
extern "C" __declspec(dllexport) void CopiarCampo (dbiTabla *pTDestino,char *pszCampoDes,dbiTabla *pTOrigen,char *pszCampoOri);