H
he_xin_
Unregistered / Unconfirmed
GUEST, unregistred user!
哪位朋友用过smscontrol4.0版对wavecom芯片的gsm-modem编程,其中的readmsgforvb函数如何使用?我这样写:
procedure TForm1.N23Click(Sender: TObject);
var mcsa,oa,msg,atime:widestring;
result:integer;
dates,times,ordersno,orderscommand:string;
begin
result:=SMSCONTROL1.ReadMsgforvb(mcsa,oa,msg,atime);
dates:=copy(atime,1,2)+'-'+copy(atime,3,2)+'-'+copy(atime,5,2);
times:=copy(atime,7,2)+':'+copy(atime,9,2)+':'+copy(atime,11,2);
label4.Caption:=dates+times;
showmessage(mcsa);
end;
手机接到知信时为什么showmessage不能显示信息呢,label4.caption也没有信息?
procedure TForm1.N23Click(Sender: TObject);
var mcsa,oa,msg,atime:widestring;
result:integer;
dates,times,ordersno,orderscommand:string;
begin
result:=SMSCONTROL1.ReadMsgforvb(mcsa,oa,msg,atime);
dates:=copy(atime,1,2)+'-'+copy(atime,3,2)+'-'+copy(atime,5,2);
times:=copy(atime,7,2)+':'+copy(atime,9,2)+':'+copy(atime,11,2);
label4.Caption:=dates+times;
showmessage(mcsa);
end;
手机接到知信时为什么showmessage不能显示信息呢,label4.caption也没有信息?