Hola que tal, querido foro, estoy tratando de enviar un SMS usando el componente TSdpoSerial (en lazarus, no se si viene para delphi). En fin, conecto correctamente mi celular Motorola V360, me aparece en windows como un Moden conectado al puerto Com3, entro al hyperterminal y escribo la siguiente secuencia de comandos:
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 delphi, 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).
Código Delphi
[-]procedure TForm1.BEnviarClick(Sender: TObject);
var
strnumero:string;
begin
SdpCel.Active:= True;
strnumero:= EArea.text + ENumero.text;
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.
Código Delphi
[-]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 solo saque algo así.
Código Delphi
[-]procedure TForm1.BEnviarClick(Sender: TObject);
var
strnumero:string;
begin
SdpCel.Active:= True;
strnumero:= EArea.text + ENumero.text;
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.
Nota: Eh buscado en el foro y no encontré al respecto, con este componente.