ActiveX en una DLL
Publicado: Mié Nov 12, 2008 7:25 pm
Dado que dispongo de una dll...
¿Como hago para utilizar en Xailer un ActiveX que me han dado en dll???
Lo alojo en la carpeta de mi aplicación???
Lo alojo en la carpeta WindowsSystem32???
Y luego... su utilización... el ejemplo que viene...
Uso de SMSCOM.dll desde un archivo ASP en VBScript
a.. Envío de mensaje
<%@ LANGUAGE=VBScript %>
<%
Set objSendSMS= Server.CreateObject("SMSCOM.SMSSend")
'Defino las propiedades
objSendSMS.setAccount ("micuenta@micuenta.com")
objSendSMS.setPwd ("mipwd")
objSendSMS.setText ("Este es mi texto")
objSendSMS.setTo ("666666666")
objSendSMS.setFrom ("mi remite") ' Parámetro opcional
'Recupero los valores establecidos
Account = objSendSMS.getAccount
Pwd = objSendSMS.getPwd
Texto = objSendSMS.getText
Para = objSendSMS.getTo
Remite = objSendSMS.getFrom
'Envío del mensaje
resultado = objSendSMS.Send
'Resultado de la operación
getResult = objSendSMS.getResult
getDescription = objSendSMS.getDescription
getCredit = objSendSMS.getCredit
Response.write "El resultado es "& resultado & "<br>"
Response.write "getResult es " & getResult & "<br>"
Response.write "getDescription es "& getDescription & "<br>"
Response.write "getCredit es " & getCredit & "<br>"
Set objSendSMS=Nothing
%>
¿cómo sería utilizando Xailer...?
Local oSMS
TRY
oSMS := CreateObject( "SMSCOM.SMSSend.Application" )
CATCH
Alert( "ERROR! SMSCOM.SMSSend not avialable. [" +
Ole2TxtError()+ "]" )
END
oSMS:setAccount( "xevicomas@gmail.com" )
....
CATH Nunca llega... y me lanza error property setaccount
Gracias.
Un Saludo,
Xevi.
¿Como hago para utilizar en Xailer un ActiveX que me han dado en dll???
Lo alojo en la carpeta de mi aplicación???
Lo alojo en la carpeta WindowsSystem32???
Y luego... su utilización... el ejemplo que viene...
Uso de SMSCOM.dll desde un archivo ASP en VBScript
a.. Envío de mensaje
<%@ LANGUAGE=VBScript %>
<%
Set objSendSMS= Server.CreateObject("SMSCOM.SMSSend")
'Defino las propiedades
objSendSMS.setAccount ("micuenta@micuenta.com")
objSendSMS.setPwd ("mipwd")
objSendSMS.setText ("Este es mi texto")
objSendSMS.setTo ("666666666")
objSendSMS.setFrom ("mi remite") ' Parámetro opcional
'Recupero los valores establecidos
Account = objSendSMS.getAccount
Pwd = objSendSMS.getPwd
Texto = objSendSMS.getText
Para = objSendSMS.getTo
Remite = objSendSMS.getFrom
'Envío del mensaje
resultado = objSendSMS.Send
'Resultado de la operación
getResult = objSendSMS.getResult
getDescription = objSendSMS.getDescription
getCredit = objSendSMS.getCredit
Response.write "El resultado es "& resultado & "<br>"
Response.write "getResult es " & getResult & "<br>"
Response.write "getDescription es "& getDescription & "<br>"
Response.write "getCredit es " & getCredit & "<br>"
Set objSendSMS=Nothing
%>
¿cómo sería utilizando Xailer...?
Local oSMS
TRY
oSMS := CreateObject( "SMSCOM.SMSSend.Application" )
CATCH
Alert( "ERROR! SMSCOM.SMSSend not avialable. [" +
Ole2TxtError()+ "]" )
END
oSMS:setAccount( "xevicomas@gmail.com" )
....
CATH Nunca llega... y me lanza error property setaccount
Gracias.
Un Saludo,
Xevi.