如何从TComPort - Delphi中得到正确的响应？

Question

当我发送命令"AT+CUSD=1，“*200#，15”时，我得到了响应：

OK


+CUSD: 0,"Crdit :1.33DA au 21/05/20.Credit offert :0DA",15  

是否有一个函数或另一个AT命令来获得

Crdit :1.33DA au 21/05/20.Credit offert :0DA 

哪一个是我想要的答案？

Answer 1

调制解调器响应是字符串-包除以逗号。

您可以：

substrings

• identify

• 将此字符串分配给TStringList.DelimitedText，以通过0项获取单个包的集合-此处，'CUSD'
• get第1项作为'Crdit...'

。

Memo.Lines示例(类型为TStrings)：

var
  s: string;
  sl: TStringList;
begin
  s := '+CUSD: 0,"Crdit :1.33DA au 21/05/20.Credit offert :0DA",15';
  sl := TStringList.Create; 
  try
    sl.Delimiter := ',';
    sl.StrictDelimiter := True;
    sl.DelimitedText := s;
    Memo1.Lines.Add(sl[1]);
  finally
    sl.Free;

result in sl:
 +CUSD: 0
 Crdit :1.33DA au 21/05/20.Credit offert :0DA
 15
in Memo:
 Crdit :1.33DA au 21/05/20.Credit offert :0DA