Q: Can you tell me how can i send the AT command in VB ??? I need to use the variable function "IStrings" and your component give me only the "IStrings2"

If you can, send me an example in VBA

---

A: I cannot provide VBA examples. Here is example in Delphi. You must translate it by yourself. IStrings2 inherits IStrings and publishes object properties.

var
  Sg: TStrings;
  S2: IStrings;
  I: Integer;
  G: IGlobal;
begin
  CheckGSMActive;
  G:= CoGlobal.Create;
  with GSMDataModule do
  begin
    Sg:= TStringList.Create;
    try
      GetOleStrings(Sg, S2);
      if GSM.SendATCommand('AT+CSQ', atrCode+atrParams+atrATResponse, S2, 0) = 0 then
      begin
        I:= 1;
        I:= StrToInt(G.ExtractParam(S2[0], I));
        if I = 99 then begin
                         IndNetRegStatus.Caption:= '?';
                         I:= 0;
                       end
                  else IndNetRegStatus.Caption:= Format('%d dBm', [2*I + (-113)]);
      end;
    finally
      Sg.Free;
    end;
  end;