estoy haciendo una aplicacion cliente servidor con paradox ,
en el programa servidor me pasa que convierto varias variables AsiString
a entero , el problema es que al hacer esto y construir la aplicacion me da un error de linker error unresolved external 'StrToIntA' referenced from (ruta)/principal.obj
El problema es casi seguro que es por el RemoteModule , ya que he hecho otra aplicacion solo para probar , funciona con la base de datos y todo bien , ahora bien , intento convertir una string a entero y el error nuevamente(si es una aplicacion sin el remoteModule no lo hace .
Código:
// DATOSTABLASSIMPLESIMPL.H : Declaration of the datosTablasSimples
#ifndef datosTablasSimplesImplH
#define datosTablasSimplesImplH
#define ATL_FREE_THREADED
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <MidConst.hpp>
#include "PcNowServer_TLB.H"
#include <DB.hpp>
#include <DBTables.hpp>
#include <Provider.hpp>
#include <xmldom.hpp>
#include <Xmlxform.hpp>
#include <atl/atlvcl.h>
// Forward ref. of IAppServer implementor
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
class TdatosTablasSimples : public TCRemoteDataModule
{
__published: // IDE-managed Components
TDataSetProvider *providerClientes;
TTable *tablaClientes;
TTable *tablaArticulos;
TTable *tablaProveedoresDuplicados;
TTable *tablaStock;
TTable *tablaProveedores;
TTable *tablaPresupuestos;
TTable *tablaFacturasProveedores;
TTable *tablaAbonosProveedores;
TTable *tablaClientesDuplicados;
TDataSetProvider *dataClientesDuplicados;
TDataSetProvider *dataArticulos;
TDataSetProvider *dataProveedores;
TDataSetProvider *dataProveedoresDuplicados;
TDataSetProvider *dataAbonosProveedores;
TDataSetProvider *dataFacturasProveedores;
TDataSetProvider *dataPresupuestos;
TDataSetProvider *dataStock;
TQuery *consultaBusqueda;
TDataSetProvider *dataConsultaBusqueda;
TDataSetProvider *dataTipoArticulo;
TTable *tablaTipoArticulo;
TTable *tablaFabricante;
TTable *tablaModelo;
TDataSetProvider *dataFabricante;
TDataSetProvider *dataModelo;
TDataSetProvider *dataVersionSoft;
TTable *tablaVersionSoft;
TTable *tablaFabricanteSoftware;
TDataSetProvider *dataFabricanteSoftware;
TDataSetProvider *dataFacturasClientes;
TTable *tablaFacturasClientes;
TDataSetProvider *dataAlbaranesClientes;
TDataSetProvider *dataAbonosClientes;
TTable *tablaAlbaranesClientes;
TTable *tablaAbonosClientes;
private: // User declarations
public: // User declarations
__fastcall TdatosTablasSimples(TComponent* Owner);
__published:
};
/////////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////////
extern PACKAGE TdatosTablasSimples *datosTablasSimples;
/////////////////////////////////////////////////////////////////////////////
// TdatosTablasSimplesImpl Implements IdatosTablasSimples, default interface of datosTablasSimples
// ThreadingModel : Apartment
// Dual Interface : TRUE
// Event Support : FALSE
// Default ProgID : PcNowServer.datosTablasSimples
// Description :
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TdatosTablasSimplesImpl: REMOTEDATAMODULE_IMPL(TdatosTablasSimplesImpl, datosTablasSimples, TdatosTablasSimples, IdatosTablasSimples)
{
public:
BEGIN_COM_MAP(TdatosTablasSimplesImpl)
RDMOBJECT_COM_INTERFACE_ENTRIES(IdatosTablasSimples)
END_COM_MAP()
// Data used when registering Object
//
DECLARE_THREADING_MODEL(otApartment);
DECLARE_PROGID(_T("PcNowServer.datosTablasSimples"));
DECLARE_DESCRIPTION(_T(""));
// Function invoked to (un)register object
//
static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
{
TRemoteDataModuleRegistrar regObj(GetObjectCLSID(), GetProgID(), GetDescription());
// Disable these flags in order to disable use by socket or web connections.
// Also set other flags to configure the behavior of your application server.
// For more information, see atlmod.h and atlvcl.cpp.
regObj.Singleton = false;
regObj.EnableWeb = true;
regObj.EnableSocket = true;
return regObj.UpdateRegistry(bRegister);
}
// IdatosTablasSimples
protected:
};
#endif // datosTablasSimplesImplH