通过手机线连接串口发短信的问题(使用Text Mode发中文怎么发）

[zypcrp]

用text mode模式.用超级终端发英文可以，发中文就会出现乱码。

[rebbit]

四月份我的程序中写了一个这样的函数，贴出来给你参考参考了！
var
Widesms : WideString; // 定义成WideString型，每个字符占两上字节
SendHead, SendData : string;
tmp, len, SS : string;
B:VARIANT;
End_ReadData, a:array of byte;S:string;
I,j:INTEGER;
sShow:Variant;
sR:String;
begin

Sleep(500);
// 参考pdu串 08 91 683108701305F0 11 00 0B 91 3176378290F9 00 00 00 02 C834
SendHead := gSmsHead; SendData := '';
SendData := gSmsData;

// 每两位交换构造接收手机号码串
tmp := ExchangeCode(mobile);
SendData := tmp + SendData;

// 将中文GB2312编码转换为代码页为CP936的Unicode编码
Widesms := WideString(sms);
tmp := EncodeGb(Widesms);

// 此处为Widesms 的长度，不是sms的长度！
len := IntToHex(2*length(Widesms), 2);
SendData := SendData + Len + tmp;

// Pdu串构造完毕，发送

//1
SS := 'AT+CMGF=0' + CHR(13);
MSComm.OutPut := SS;
MSComm.Input;

Application.ProcessMessages;
Sleep(1000);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));

//2
SS := 'AT+CMGS=' + IntToStr((Length(SendData) DIV 2) + 4) + CHR(13);
MSComm.OutPut := SS;
MSComm.Input;

Application.ProcessMessages;
Sleep(200);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));

//3
SS := SendHead + SendData + CHR(26);
MSComm.OutPut := SS;
MSComm.Input;

Application.ProcessMessages;
Sleep(3000);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));

//4
SS := 'AT+CMGF=0' + CHR(13);
MSComm.OutPut := SS;
MSComm.Input;

Application.ProcessMessages;
Sleep(3000);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));
end;

[zypcrp]

查了一下，好像text模式只能发英文
有没有谁用过三星手机开发过
为啥at+cmgf=0命令不能用.

[zypcrp]

1

[pressman]

2

[chwdong]

不会，接点粪

[longtusoft]

你搜索一下坛子,应该有类似的例子

[rebbit]

呵呵，text模式可以发送中文的，但是编码必须是unicode码？如果需要向西电的资料，可以和我联系了：[e-mail]

[zypcrp]

顶