First commit 18/11/2001
This commit is contained in:
179
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.bpr
Normal file
179
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.bpr
Normal file
@ -0,0 +1,179 @@
|
||||
# ---------------------------------------------------------------------------
|
||||
!if !$d(BCB)
|
||||
BCB = $(MAKEDIR)\..
|
||||
!endif
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# IDE SECTION
|
||||
# ---------------------------------------------------------------------------
|
||||
# The following section of the project makefile is managed by the BCB IDE.
|
||||
# It is recommended to use the IDE to change any of the values in this
|
||||
# section.
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
VERSION = BCB.04.04
|
||||
# ---------------------------------------------------------------------------
|
||||
PROJECT = BDEMONTREL.dll
|
||||
OBJFILES = BDEMONTREL.obj
|
||||
RESFILES =
|
||||
RESDEPEN = $(RESFILES)
|
||||
LIBFILES =
|
||||
LIBRARIES =
|
||||
SPARELIBS = Vcl40.lib
|
||||
PACKAGES = Vcl40.bpi Vclx40.bpi vcljpg40.bpi bcbsmp40.bpi Qrpt40.bpi Vcldb40.bpi \
|
||||
ibsmp40.bpi vcldbx40.bpi TeeUI40.bpi teedb40.bpi tee40.bpi nmfast40.bpi \
|
||||
dclocx40.bpi
|
||||
DEFFILE =
|
||||
# ---------------------------------------------------------------------------
|
||||
PATHCPP = .;
|
||||
PATHASM = .;
|
||||
PATHPAS = .;
|
||||
PATHRC = .;
|
||||
DEBUGLIBPATH = $(BCB)\lib\debug
|
||||
RELEASELIBPATH = $(BCB)\lib\release
|
||||
USERDEFINES =
|
||||
SYSDEFINES = _RTLDLL;NO_STRICT;USEPACKAGES
|
||||
# ---------------------------------------------------------------------------
|
||||
CFLAG1 = -I$(BCB)\include;$(BCB)\include\vcl -WD -Od -Hc -H=$(BCB)\lib\vcl40.csm -w -Ve \
|
||||
-r- -a8 -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tWM \
|
||||
-D$(SYSDEFINES);$(USERDEFINES)
|
||||
PFLAGS = -U$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \
|
||||
-I$(BCB)\include;$(BCB)\include\vcl -$YD -$W -$O- -v -JPHNE -M
|
||||
RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl
|
||||
AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd
|
||||
LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpd -x -Gn -Gi -v
|
||||
# ---------------------------------------------------------------------------
|
||||
ALLOBJ = c0d32.obj Memmgr.Lib $(PACKAGES) sysinit.obj $(OBJFILES)
|
||||
ALLRES = $(RESFILES)
|
||||
ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib
|
||||
# ---------------------------------------------------------------------------
|
||||
!ifdef IDEOPTIONS
|
||||
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
|
||||
[Debugging]
|
||||
DebugSourceDirs=$(BCB)\source\vcl
|
||||
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
RemoteHost=
|
||||
RemotePath=
|
||||
RemoteDebug=0
|
||||
|
||||
[Compiler]
|
||||
InMemoryExe=0
|
||||
ShowInfoMsgs=0
|
||||
|
||||
!endif
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
# MAKE SECTION
|
||||
# ---------------------------------------------------------------------------
|
||||
# This section of the project file is not used by the BCB IDE. It is for
|
||||
# the benefit of building from the command-line using the MAKE utility.
|
||||
# ---------------------------------------------------------------------------
|
||||
|
||||
.autodepend
|
||||
# ---------------------------------------------------------------------------
|
||||
!if !$d(BCC32)
|
||||
BCC32 = bcc32
|
||||
!endif
|
||||
|
||||
!if !$d(CPP32)
|
||||
CPP32 = cpp32
|
||||
!endif
|
||||
|
||||
!if !$d(DCC32)
|
||||
DCC32 = dcc32
|
||||
!endif
|
||||
|
||||
!if !$d(TASM32)
|
||||
TASM32 = tasm32
|
||||
!endif
|
||||
|
||||
!if !$d(LINKER)
|
||||
LINKER = ilink32
|
||||
!endif
|
||||
|
||||
!if !$d(BRCC32)
|
||||
BRCC32 = brcc32
|
||||
!endif
|
||||
|
||||
# ---------------------------------------------------------------------------
|
||||
!if $d(PATHCPP)
|
||||
.PATH.CPP = $(PATHCPP)
|
||||
.PATH.C = $(PATHCPP)
|
||||
!endif
|
||||
|
||||
!if $d(PATHPAS)
|
||||
.PATH.PAS = $(PATHPAS)
|
||||
!endif
|
||||
|
||||
!if $d(PATHASM)
|
||||
.PATH.ASM = $(PATHASM)
|
||||
!endif
|
||||
|
||||
!if $d(PATHRC)
|
||||
.PATH.RC = $(PATHRC)
|
||||
!endif
|
||||
# ---------------------------------------------------------------------------
|
||||
$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE)
|
||||
$(BCB)\BIN\$(LINKER) @&&!
|
||||
$(LFLAGS) +
|
||||
$(ALLOBJ), +
|
||||
$(PROJECT),, +
|
||||
$(ALLLIB), +
|
||||
$(DEFFILE), +
|
||||
$(ALLRES)
|
||||
!
|
||||
# ---------------------------------------------------------------------------
|
||||
.pas.hpp:
|
||||
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
|
||||
|
||||
.pas.obj:
|
||||
$(BCB)\BIN\$(DCC32) $(PFLAGS) {$< }
|
||||
|
||||
.cpp.obj:
|
||||
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
|
||||
|
||||
.c.obj:
|
||||
$(BCB)\BIN\$(BCC32) $(CFLAG1) -n$(@D) {$< }
|
||||
|
||||
.c.i:
|
||||
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
|
||||
|
||||
.cpp.i:
|
||||
$(BCB)\BIN\$(CPP32) $(CFLAG1) -n. {$< }
|
||||
|
||||
.asm.obj:
|
||||
$(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@
|
||||
|
||||
.rc.res:
|
||||
$(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $<
|
||||
# ---------------------------------------------------------------------------
|
||||
1639
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.cpp
Normal file
1639
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.cpp
Normal file
File diff suppressed because it is too large
Load Diff
BIN
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.dll
Normal file
BIN
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.dll
Normal file
Binary file not shown.
79
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.h
Normal file
79
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.h
Normal file
@ -0,0 +1,79 @@
|
||||
#include <vcl\bde.hpp>
|
||||
|
||||
#define DEF_MDXEXT ".MDX"
|
||||
#define DEF_MAXREPOPENTABLE 15
|
||||
#define TAM_MAX_CADENA 513
|
||||
#define TAMANO_DATE_DBF 8
|
||||
#define RETARDO_ABRIR_TABLA 1000
|
||||
|
||||
#define DSCERR_NOINITDBI "Librer<65>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 8706
|
||||
|
||||
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);
|
||||
BIN
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.lib
Normal file
BIN
Esergui -BDE utilizando API/BDEDLL/BDEMONTREL.lib
Normal file
Binary file not shown.
Reference in New Issue
Block a user