AT(enter)
Me responde OK
O sea todo bien, ahora preparo para mandar SMS, todo desde hyperterminal.
AT+CMGS="381XXXXXX"(enter)
Me aparece >
>(pongo el mensaje) y enter
>(mando la convinación ctrl+Z)
Y desde hyperterminal, me sale ok y en instante mi celular manda el mensaje.
Ahora en lazarus, creo un programa un aplicación, para poner el codigo de area, el numero y el mensaje. y en el evento onclick del un boton enviar, pongo el siguiente código (que es donde necesito ayuda).
procedure TForm1.BEnviarClick(Sender: TObject); var strnumero:string; begin SdpCel.Active:= True; strnumero:= EArea.text + ENumero.text; //agregar al final ctrl+z (ascii 26) SdpCel.WriteData('AT+CMGS="' + strnumero +'"' + #13); SdpCel.WriteData(MMensaje.Text + #13); SdpCel.WriteData(#26); end;
En el evento onreaddata pongo lo siguiente, y me sale un tonelada de errores.
procedure TForm1.SdpCelRxData(Sender: TObject); var rec: string; begin rec:= SdpCel.ReadData; if (rec = 'OK') then ShowMessage('Mensaje enviado correctamente') else ShowMessage('Error: ' + rec); end;
Deberia aparecerme un ">" pero no lo hace, tampoco me aparece OK.
Bueno el tema es que no se que estoy haciendo mal, tal vez deba enviar en un sola vez, algo así.
procedure TForm1.BEnviarClick(Sender: TObject); var strnumero:string; begin SdpCel.Active:= True; strnumero:= EArea.text + ENumero.text; //agregar al final ctrl+z (ascii 26) SdpCel.WriteData('AT+CMGS="' + strnumero +'"' + #13 + MMensaje.Text + #13 + #26); end;
Bueno, desde ya muchas gracias y al que le interese esta es una manera que la aplicación mande mensaje espero que le sirva a alguien.