.版本 2 .程序集 功能程序集 .子程序 线程_初始化COM库, , 公开, 有时执行线程的时候，会自动关闭，此时，可以在多线程的程序里创建COM对象前先初始化，一个线程只能调用一次 CoInitialize (0) .子程序 线程_取消COM库, , 公开, 取消COM库的初始化，如果你在线程头部加入了 线程_初始化COM库 请在尾部加入此命令 CoUninitialize () .子程序 编码_Utf8到Ansi_对象, 文本型, 公开 .参数 欲转换的文本, 字节集 .局部变量 Dx, 对象 .局部变量 Text, 文本型 .局部变量 btx, 变体型 .局部变量 type, 文本型 CoInitialize (0) btx.赋值 (欲转换的文本, ) .如果真 (Dx.创建 (“Adodb.Stream”, ) ＝ 假) 返回 (“”) .如果真结束 Dx.写属性 (“Type”, 1) Dx.写属性 (“Mode”, 3) Dx.方法 (“Open”, ) Dx.方法 (“Write”, btx) Dx.写属性 (“Position”, 0) Dx.写属性 (“Type”, 2) Dx.写属性 (“Charset”, “UTF-8”) Text ＝ Dx.文本方法 (“ReadText”, ) Dx.方法 (“Close”, ) CoUninitialize () 返回 (Text) .子程序 编码_Ansi到Utf8_对象, 字节集, 公开 .参数 文本, 文本型 .局部变量 stream, 对象 .局部变量 string, 变体型 线程_初始化COM库 () .如果真 (stream.创建 (“adodb.stream”, ) ＝ 假) 返回 ({ }) .如果真结束 stream.写属性 (“Type”, 2) ' text stream.写属性 (“Charset”, “utf-8”) stream.方法 (“Open”, ) stream.方法 (“WriteText”, 文本) stream.写属性 (“Position”, 0) stream.写属性 (“Type”, 1) ' 二进制 string ＝ stream.通用方法 (“Read”, stream.读数值属性 (“Size”, )) stream.方法 (“Close”, ) 线程_取消COM库 () 返回 (string.取字节集 ()) 绘制代码