Leer mensajes de modem(Celular) GSM desde PC

[arvaq]

Código Delphi [-]
procedure Tfmenu.bleerClick(Sender: TObject);
begin
  at := 'AT+CMGF=1' + #13#10;   {SMS en formato texto}
  ComPort.WriteStr(at);
  Sleep(100);
  
   at := 'AT+CMGL="REC READ"'+ #13#10; (CON ESTE COMANDO NO PUEDO LEER LOS MENSAJES. ME DICE OK SOLAMENTE NO DE POR QUE)

  at := 'AT+CMGR=1' + #13; (Con este si los puedo leer. AT+CMGR= Indice del mensaje a leer, ej 1, 2, 3, 10. Pone o CMGR o CMGL fijate cual te anda y te sirve).

  ComPort.WriteStr(at);
  Sleep(100);
end;

//en el componente comport.

Código Delphi [-]
procedure Tfmenu.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
  leersms(str);
end;

[arvaq]

si alguien sabe alguna manera de poder leer solamente los sms no leidos avise. yo no pude.. si envio AT+CMGl="REC UNREAD" me devuelve OK solamente... y si lo igualo a "REC READ" tambien... en ningun caso me da todos los sms no leidos o leidos.. solamente los puedo ver con el CMGR pero hay que ir de uno en uno.

[Casimiro Noteví]

Recuerda poner el código entre entiquetas para que se lea mejor, ejemplo:




.

[jhonson01]

Hola a todos... yo tengo el mismo problema... pruebo con el CMGL y CMGR y con los dos me muestra "OK".... como hago para tomar solo el mensaje que recibo?

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración