Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Control + Z en ComPort (https://www.clubdelphi.com/foros/showthread.php?t=73544)

emula 30-04-2011 03:53:14

Control + Z en ComPort
 
Saludos Gente...
Estoy tratando de usar el componente ComPort para la comunicación con un modem GSM.

Estoy en el proceso de envio de SMS a traves de una visual memo y el edit como introductor de comando.
El problema es a la hora de mandara traves de un boton la combinación Ctrol + Z que me permitira el envio del sms.

Este es el código q funciona hasta el momento de enviar el comando #26 que es el ascii de Ctrol+Z... Que estoy haciendo mal?
Código Delphi [-]
var
  Str: String;
begin

/////Introducción al sistema sms////
  Str := 'AT+CMGS='+'XXXXXXXXX'+ #13#10;
  ComPort.WriteStr(Str);

/////Texto a enviar////
  Str := Edit1.text;
  ComPort.WriteStr(Str);  

/////Envio de la combinación Ctrol + z en Ascii////
  Str := #26;
  ComPort.WriteStr(Str);

End;

emula 30-04-2011 04:40:51

Cita:

Empezado por emula (Mensaje 398431)
Str := 'AT+CMGS='+'XXXXXXXXX'+ #13#10;
End;

Autorespondiendome.... Hay q tener cuidado a la hora de colocar el número telefonico. se debe agregar comillas ("). asi "XXXXXXX". error necio pero rompecabeza por un buen rato. jeje :-)


La franja horaria es GMT +2. Ahora son las 22:26:43.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi