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

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

您可以：
-将此字符串分配给TStringList.DelimitedText以获得单个子字符串的集合
-按第0个项目标识包装-这里'CUSD'
-以'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

如何仅从TComPort-Delphi获得正确的响应？

1 个答案: