HOLA NECESITO ENVIAR SMS DESDE DELPHI A TRAVEZ DE UN GATEWAY LA DIRECCION DEL GATEWAY ES
http://DIRECCIONDELGATEAWAY.net/?phonenumber=04248225809&mensaje=MENSAJE DE PRUEBA&user=bert&password=theg
QUIERO HACERLO DESDE DELPHI
LOS DATOS QUE DEBO PASAR PARA CONCATENAR LA DIRECCION ES
PHONENUMBER: NUMERO DE CELULAR
MENSAJE:ES EL TEXTO
USER: USUARIO QUE ME ASIGNAN
PASSWORD: LA CLAVE QUE ME DAN
ALGUIEN ME PUEDE AYUDAR Y LIBERAMOS LA APLICACION
[/url]
Publicado:
Dom Dic 26, 2010 8:25 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: ENVIAR SMS DESDE DELPHI
Anuncios
webmasterplc escribió:
HOLA NECESITO ENVIAR SMS DESDE DELPHI A TRAVEZ DE UN GATEWAY LA DIRECCION DEL GATEWAY ES
http://DIRECCIONDELGATEAWAY.net/?phonenumber=04248225809&mensaje=MENSAJE DE PRUEBA&user=bert&password=theg
QUIERO HACERLO DESDE DELPHI
LOS DATOS QUE DEBO PASAR PARA CONCATENAR LA DIRECCION ES
PHONENUMBER: NUMERO DE CELULAR
MENSAJE:ES EL TEXTO
USER: USUARIO QUE ME ASIGNAN
PASSWORD: LA CLAVE QUE ME DAN
ALGUIEN ME PUEDE AYUDAR Y LIBERAMOS LA APLICACION
[/url]
A continuación te pasamos el código de cómo acceder a una URL y obtener lo que devuelva, o bien en texto o bien en una ventana de navegador.
No está terminado del todo, en breve pondremos la descarga disponible, pero tal vez esto te sirva:
function enviarSMS (url : string) : string;
var
obtenerHTTP : TidHTTP;
web : TStringList;
begin
web := TStringList.Create;
obtenerHTTP := TidHTTP.Create(nil);
try
web.Text := obtenerHTTP.Get(url);
except
on e: exception do
begin
obtenerHTTP.Free;
end;
end;
enviarSMS := web.Text;
end;
function TformEnvioSMS.componerURLFinal;
var
url, numeroTelefono, mensaje, usuario, contrasena : string;
urlFinal : string;
begin
url := txtURL.Text;
numeroTelefono := txtNumeroMovil.Text;
mensaje := txtMensaje.Text;
usuario := txtUsuario.Text;
contrasena := txtPassword.Text;
procedure TformEnvioSMS.btEnviarClick(Sender: TObject);
begin
if opTexto.Checked then
begin
txtResultado.Text := enviarSMS(txtURLFinal.Text);
tabTexto.Show;
end
else
begin
tabWeb.Show;
resultadoWeb.Navigate(txtURLFinal.Text);
end;
end;
procedure TformEnvioSMS.txtUsuarioChange(Sender: TObject);
begin
componerURLFinal;
end;
procedure TformEnvioSMS.txtURLChange(Sender: TObject);
begin
componerURLFinal;
end;
procedure TformEnvioSMS.txtPasswordChange(Sender: TObject);
begin
componerURLFinal;
end;
end.
Publicado:
Mar Dic 28, 2010 8:17 pm
webmasterplc Excelente usuario
Registrado: Oct 31, 2009 Mensajes: 26
Asunto:
que componentes usastes para esto pudes poner l unit para descarga saludos
Publicado:
Jue Dic 30, 2010 5:15 pm
webmasterplc Excelente usuario
Registrado: Oct 31, 2009 Mensajes: 26
Asunto:
CUAL COMPONENTE USASES HERMANO
Publicado:
Dom Ene 02, 2011 7:32 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto:
webmasterplc escribió:
CUAL COMPONENTE USASES HERMANO
En el siguiente enlace tienes la descarga de la aplicación AjpdSoft Envío de SMS vía Web BETA:
Es una versión no acabada, pero te servirá como ejemplo para lo que quieres.
Como componentes hemos usado: TWebBrowser, que va incluido en los componentes Indy de Delphi, no hay que instalarlo.
Si desarrollas la aplicación y quieres que la publiquemos comunícamelo en este hilo del foro y te paso una dirección de email para que nos lo envíes.
Publicado:
Dom Ene 02, 2011 8:33 pm
webmasterplc Excelente usuario
Registrado: Oct 31, 2009 Mensajes: 26
Asunto:
seguro que si
Publicado:
Dom Ene 02, 2011 9:37 pm
webmasterplc Excelente usuario
Registrado: Oct 31, 2009 Mensajes: 26
Asunto: error
me da un error al compilarlo
[Fatal Error] envioSMSWeb.dpr(6): File not found: 'ExceptionLog.dcu'
[Fatal Error] envioSMSWeb.dpr(6): File not found: 'ExceptionLog.dcu'
[Fatal Error] envioSMSWeb.dpr(6): File not found: 'ExceptionLog.dcu'[/img]
Publicado:
Dom Ene 02, 2011 10:15 pm
alonsojpd Administrador/Moderador
Registrado: Sep 16, 2003 Mensajes: 2687
Asunto: Re: error
Anuncios
webmasterplc escribió:
me da un error al compilarlo
[Fatal Error] envioSMSWeb.dpr(6): File not found: 'ExceptionLog.dcu'
[Fatal Error] envioSMSWeb.dpr(6): File not found: 'ExceptionLog.dcu'
[Fatal Error] envioSMSWeb.dpr(6): File not found: 'ExceptionLog.dcu'[/img]
Edita el fichero EnvioSMSWeb.dpr y cambia el código:
Código:
uses
ExceptionLog,
Forms,
UnidadEnvioSMS in 'UnidadEnvioSMS.pas' {formEnvioSMS};
Por
Código:
uses
Forms,
UnidadEnvioSMS in 'UnidadEnvioSMS.pas' {formEnvioSMS};
Quitando "ExceptionLog" que pertenece a un componente que usamos llamado EurekaLog para captura de errores profesional. No es necesario para lo que tú lo necesitas.
Publicado:
Lun Ene 03, 2011 12:34 pm
frankolar Buen usuario
Registrado: Jul 07, 2011 Mensajes: 6
Asunto:
Disculpen las molestias pero me interesa tambien esta informacion, no se si tienen mayor informacion al respecto, con este proyecto, para poder enviar mensajes de texto, tambien si se puede utilizar en cualquier pais, por ejemplo El Salvador...
Publicado:
Vie Jul 08, 2011 10:12 pm
frankolar Buen usuario
Registrado: Jul 07, 2011 Mensajes: 6
Asunto:
Por favor si alguien me puede ayudar, me gustaria saver si se puede hacer el mismo proyecto de Google Calendar de VB.net en Lazarus o Delphi, por favor si me pueden ayudar me Urge por favor.
Puede publicar nuevos temas en este foro No puede responder a temas en este foro No puede editar sus mensajes en este foro No puede borrar sus mensajes en este foro No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A