在BDE开发的数据库程序在无Delphi的机子上怎么运行？

Question

在BDE开发的数据库程序在无Delphi的机子上怎么运行？

Answer 1

用安装软件把做的东西打包呀，在打包的时候记得把ODBC中的BDE打进去就行了

Answer 2

BDE打包啊，楼主用什么数据库啊，为何选BDE?

Answer 3

我用的是paradox数据库，BDE怎么打包啊

Answer 4

用InstallShield打包文件打包，就是制作一个安装文件，在脚本里面写上一些操作（c语言脚本），就能给注册表注册，然后就能使用bde了。

Answer 5

if ComponentIsItemSelected (MEDIA, "BDE驱动") then
    szMsg   = "正在向系统注册BDE数据库驱动...";
    SdShowMsg(szMsg, TRUE);
    Delay( 1 );
    szClass="";
    KeyBLW32="SOFTWARE\\Borland\\BLW32";
nResult = CreateRegistrySet( "" );
RegDBSetDefaultRoot ( HKEY_LOCAL_MACHINE );
    RegDBCreateKeyEx ( KeyBLW32 , szClass );
    RegDBSetKeyValueEx ( KeyBLW32 , "BLAPIPATH" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB1" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\USA.BLL" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB2" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\EUROPE.BLL" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB3" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\CEEUROPE.BLL" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB4" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\CHARSET.BLL" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB5" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\OTHER.BLL" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB6" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\FAREAST.BLL" , -1 );
    RegDBSetKeyValueEx ( KeyBLW32 , "LOCALE_LIB7" , REGDB_STRING,PROGRAMFILES^"Borland\\Common Files\\BDE\\JAPAN.BLL" , -1 );    KeyDbEngine="SOFTWARE\\Borland\\Database Engine";
    RegDBCreateKeyEx ( KeyDbEngine , szClass );
    RegDBSetKeyValueEx ( KeyDbEngine , "CONFIGFILE01" ,REGDB_STRING ,PROGRAMFILES^"Borland\\Common Files\\BDE\\IDAPI.CFG" , -1 );
    RegDBSetKeyValueEx ( KeyDbEngine , "DLLPATH" , REGDB_STRING ,PROGRAMFILES^"Borland\\Common Files\\BDE" , -1 );
    RegDBSetKeyValueEx ( KeyDbEngine , "RESOURCE" , REGDB_STRING , "0009" , -1 );
    RegDBSetKeyValueEx ( KeyDbEngine , "SaveConfig" ,REGDB_STRING , "WIN32" , -1);
    RegDBSetKeyValueEx ( KeyDbEngine , "UseCount" , REGDB_STRING , "5" , -1 );
    SdShowMsg(szMsg, FALSE);
  endif;