Mensajeria SMS con delphi
Publicado por luis (4 intervenciones) el 29/08/2003 03:44:09
En www.Movistar.com (Aula Mensajeria) hay un servidor para
enviar y recibir SMS con un programa realizado en Visual Basic.
Quiero hacer basicamente lo mismo con Delphi pero no consigo
capturar los eventos del Servidor.
El método para ello no se traducirlo.
SINTAXIS
Function Conectar(pEvents As Iunkown, Flags As Long) As Long
Implements IAplicacionEvents
Conectar(Me, CA_All)
EJEMPLOS:
Visual Basic
'Creo los objetos globales
Set g_App = New ScmAplicacion
'Conecto los eventos del interfaz IAplicacionEvents
g_App.Conectar(Me, CA_All)
Delphi
'Creo los objetos globales
g_App = CreateOleObject(Mensajeria.ScmAplicacion)
g_App.Conectar(Me, CA_All) // (Me) da error, desconozco que
// parámetros enviar para acceder
// a los eventos
Gracias anticipadas.
enviar y recibir SMS con un programa realizado en Visual Basic.
Quiero hacer basicamente lo mismo con Delphi pero no consigo
capturar los eventos del Servidor.
El método para ello no se traducirlo.
SINTAXIS
Function Conectar(pEvents As Iunkown, Flags As Long) As Long
Implements IAplicacionEvents
Conectar(Me, CA_All)
EJEMPLOS:
Visual Basic
'Creo los objetos globales
Set g_App = New ScmAplicacion
'Conecto los eventos del interfaz IAplicacionEvents
g_App.Conectar(Me, CA_All)
Delphi
'Creo los objetos globales
g_App = CreateOleObject(Mensajeria.ScmAplicacion)
g_App.Conectar(Me, CA_All) // (Me) da error, desconozco que
// parámetros enviar para acceder
// a los eventos
Gracias anticipadas.
Valora esta pregunta


0