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

    return out;

}

function utf16to8(str) {

    var out, i, len, c;

    out = "";

    len = str.length;

    for(i = 0; i < len; i++) {

    c = str.charcodeat(i);

    if ((c >= 0x0001) && (c <= 0x007f)) {

        out += str.charat(i);

    } else if (c > 0x07ff) {

        out += string.fromcharcode(0xe0 | ((c >> 12) & 0x0f));

        out += string.fromcharcode(0x80 | ((c >>  6) & 0x3f));

        out += string.fromcharcode(0x80 | ((c >>  0) & 0x3f));

    } else {

        out += string.fromcharcode(0xc0 | ((c >>  6) & 0x1f));