关于一个短信收发的程序字符转换的有关问题

2012-01-01

关于一个短信收发的程序字符转换的问题关于一个短信收发的程序fsnr.text这个文本框的内容是从表里读取出来

关于一个短信收发的程序字符转换的问题
关于一个短信收发的程序fsnr.text这个文本框的内容是从表里读取出来的，而且我已经将字符进行了转换
vbFormUnicode但是手机收到的中文信息还是乱码，只能收英文和数字不能收中文这是什么原因，但是如果不从表里读数据直接在fsnr.text那里写的话好像就可以收到中文信息。

VB code

Dim smscontent As StringDim smslen As Long  '2) 发送短信status1.text = "正在发送短信，请稍等 ......"smscontent = StrConv(fsnr.text, vbFormUnicode)smslen = LenB(StrConv(fsnr.text, vbFormUnicode))number = jshm.text   ret = GSMModemSMSsend(Device.text, "", 0, smscontent, smslen, jshm.text, statereq) If ret ThenMsgBox "GSMModemSMSsend: 短信发送成功!" ElseMsgBox "GSMModemSMSsend: 短信发送失败!" + GSMModemGetErrorMsg(Device.text)

[解决办法]
去掉转换试试
或者转换为UTF8(用StrConv不行)

热点排行