KbmMW,DevExpress 49版本，RemObjects SDK，Indy组件在Delphi7的结合方式

4月8日

KbmMW,DevExpress 49版本，RemObjects SDK，Indy组件结合方式

DevExpress 49的安装，请到网上下载一个For Delphi7.exe安装文件进行安装。

RemObjects SDK 6.0.39.777在盒子上找，或者去http://atkins.5d6d.com/bbs.php 找进行下载，下载的时候需要积分，赚积分的方法很简单，到其他模板粘贴一些有意义的文章是方法之一。

Indy 10.5.6的安装，这里需要注意一下，盒子上Indy 10.5.7的版本是个假版本，编译通过不了。Indy 10.5.6的安装参照如下方法:

卸载:
1. 从Delphi的IDE中卸载Indy组件包
2. 从你的系统目录中删除以Indy开头的所有bpl和dcp文件
3. 从你的Delphi的Library path中删除所有Indy的路径

安装:
1、把下列路径加入Delphi的Library Path
indy10/Source/Core
indy10/Source/Protocols
indy10/Source/SuperCore
indy10/Source/SuperCore
2、打开/System/IndySystem70.dpk，点Compile。
3、打开/Core/IndyCore70.dpk，点Compile。
4、打开/Protocols/IndyProtocols70.dpk，点Compile。
5、打开/Core/dclIndyCore70.dpk，点install。
6、打开/Protocols/dclIndyProtocols70.dpk，点install。

 

问题来了，如果先装RemObjects SDK，后装Indy 10的话，会导致RemObjects_Indy_D7加载不了。使用如下方法解决

在Delphi[Component]菜单[Install Packages...]下，找到RemObjects SDK_Indy Library这行，选择[Edit]进行编辑。

需要修改成如下设置

{$IFDEF DELPHI7UP}
           {$DEFINE RemObjects_INDY10}
           {$DEFINE RemObjects_INDY10B}
            {$DEFINE RemObjects_INDY10C}

{$ELSE}
            {$DEFINE RemObjects_INDY9}
{$ENDIF}

然后，重新编译Remobjects对应控件包，就正常了。

KbmMW的安装，在盒子上下载2.6.1企业版。

按照如下方法安装：

1.安装KbmMemTable，安装的时候需要把KbmMW中的KbmMW.inc路径加入的Serach Path，
2.安装KbmMW之前，需要修改kbmMWConfig.inc。为什么，如果你的Indy是9版本的，需要把Define Indy10注释掉，把Define Indy9前面的注释去掉，使用这个定义
3.安装ZerosDBO,TGIFImage以及dcpcrypt2控件。
4.安装KbmMW。

5.如果是Indy 10版本，需要修改两个地方，一个是把源码TBytes的地方改成TIdBytes

另外需要修改一个地方，把OnUDPRead(Sender:TObject;; AData:TIdBytes; ABinding:TIdSocketHandle); virtual;

改成如下
{$IFDEF KBMMW_USING_INDY_10}
    procedure OnUDPRead(AThread: TIdUDPListenerThread; AData:TIdBytes; ABinding:TIdSocketHandle); virtual;
{$ELSE}
    procedure OnUDPRead(AThread: TIdUDPListenerThread; AData:TStream; ABinding:TIdSocketHandle); virtual;
{$ENDIF}

这样KbmWM就安装成功了。