[原创]Delphi中ScriptControl的高级应用(二)[3]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 juwuyi 的 blog

 

    len = str.length;

    i = 0;

    out = "";

    while(i < len) {

    /* c1 */

    do {

        c1 = base64decodechars[str.charcodeat(i++) & 0xff];

    } while(i < len && c1 == -1);

    if(c1 == -1)

        break;

 

 

    /* c2 */

    do {

        c2 = base64decodechars[str.charcodeat(i++) & 0xff];

    } while(i < len && c2 == -1);

    if(c2 == -1)

        break;

 

 

    out += string.fromcharcode((c1 << 2) | ((c2 & 0x30) >> 4));

 

 

    /* c3 */

    do {

本文关键:[原创]Delphi中ScriptControl的高级应用(二)
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top