G
gzwhua
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]本人想利用SPCOMM操纵GSM模块发送手机,但经验不足,写了如下一段代码测试,但无法将信息发出
,请有这方面的大哥指点!!!
Comm1.StartComm;//open gsm model
var
ss:string;
begin
ss:='AT'+#13#10;
Comm1.WriteCommData(ss, 2) ;
sleep(100);
ss:='AT+CMGF=1'+#13#10;
Comm1.WriteCommData(ss,9);
sleep(2);
ss:='AT＋CGMS="13926008888"'+#26#13#10;
Comm1.WriteCommData(ss,30);
sleep(2);
ss:='Hello World';
Comm1.WriteCommData(ss,11);
end;
//-----------------------------------
function Encode2(var s: WideString): string; //中文编码
var
i, len: Integer;
cur: Integer;
t: string;
begin
Result := '';
len := Length(s);
i := 1;
while i <= len do
begin
cur := ord(s);
//BCD转换
FmtStr(t, '%4.4X', [cur]);
Result := Result + t;
inc(i);
end;
end;
]本人想利用SPCOMM操纵GSM模块发送手机,但经验不足,写了如下一段代码测试,但无法将信息发出,请有这方面的大哥指点!!!
Comm1.StartComm;//open gsm model
var
ss:string;
begin
ss:='AT'+#13#10;
Comm1.WriteCommData(ss, 2) ;
sleep(100);
ss:='AT+CMGF=1'+#13#10;
Comm1.WriteCommData(ss,9);
sleep(2);
ss:='AT＋CGMS="13926008888"'+#26#13#10;
Comm1.WriteCommData(ss,30);
sleep(2);
ss:='Hello World';
Comm1.WriteCommData(ss,11);
end;
//-----------------------------------
function Encode2(var s: WideString): string; //中文编码
var
i, len: Integer;
cur: Integer;
t: string;
begin
Result := '';
len := Length(s);
i := 1;
while i <= len do
begin
cur := ord(s);
//BCD转换
FmtStr(t, '%4.4X', [cur]);
Result := Result + t;
inc(i);
end;
end;