[原创]Delphi中ScriptControl的高级应用（二）[7]

        // 110x xxxx   10xx xxxx

        char2 = str.charcodeat(i++);

        out += string.fromcharcode(((c & 0x1f) << 6) | (char2 & 0x3f));

        break;

      case 14:

        // 1110 xxxx  10xx xxxx  10xx xxxx

        char2 = str.charcodeat(i++);

        char3 = str.charcodeat(i++);

        out += string.fromcharcode(((c & 0x0f) << 12) |

                       ((char2 & 0x3f) << 6) |

                       ((char3 & 0x3f) << 0));

        break;

    }

    }

    return out;

}

这么长的一段代码，我们怎样才能以addcode()的方法加入进去呢？

1）  第一种方法：把这么长的代码定义给一个字符串。这个工作量肯定非常大，而且容易出错。

2）  第二种方法：把它定义到一个记事本里，程序运行的时候读入。安全性很低，容易被人修改，导致出错。

3）  第三种方法：把它以资源文件的形式存放在一个dll里。这种方法比较适合。以下我们就用这种方法来处理。

生成dll的步骤：

1）  新建一个记事本，粘贴上面的代码，最后保存为base64.txt。

2）  新建一个记事本，写上以下代码，最后保存为 base64.rc。