PB 字符串转 UTF-8

 integer  li_rtn  
 string ls_data
  OLEObject  ole_ADOStream  
  ole_ADOStream  =  CREATE  OLEObject  
  li_rtn  =  ole_ADOStream.ConnectToNewObject("ADODB.Stream")  
  ole_ADOStream.Type  =  1  //二进制数据Binary  
  ole_ADOStream.Mode  =3  //具有读/写权限  
//  ole_ADOStream.Charset  =  "UTF-8"  
  ole_ADOStream.Open()  
  ole_ADOStream.LoadFromFile("c:\test.txt") 
  ole_ADOStream.Position  =  0  //Position为0才能设置Charset  
  ole_ADOStream.Type  =  2  //文本数据  
  ole_ADOStream.Charset  =  "UTF-8"  
  ole_ADOStream.SaveToFile("c:\test1.txt",2)  
  ole_ADOStream.Close()  
  destroy  ole_ADOStream