Sending SMS help needed.

[Horizon]

Hi,

I have a MobilusSMS.dll that is supported from my local sms company. I have registered it to my windows using regsvr32 mobilussms.dll. The message is said that It is registered successfully.

I have a ASP code.

Code: Select all  Expand view

Sub SendSMS()
    Set objSMS = Server.CreateObject("MobilusSMS.Gateway")
    objSMS.addtosmsbasket "Message 1","05334924505"
    objSMS.addtosmsbasket "Message 2","05334924505"
    strDonus = objSMS.sendsms("test-mb1000","4574","","")
    response.write strDonus
    objSMS.clearsmsbasket
    Set objSMS = Nothing
End Sub
 

I try to write like this.

Code: Select all  Expand view

MSgInfo("I am going to Send SMS")
TRY
    objSMS := CREATEOBJECT( "MobilusSMS.Gateway" )
    objSMS:addtosmsbasket("Message 1","05334924505")
    objSMS:addtosmsbasket("Message 2","05334924505")
    strDonus := objSMS.sendsms("test-mb1000","4574","","")
    MSgInfo(strDonus)
    objSMS.clearsmsbasket()
    objSMS := Nil
CATCH oError
  MsgInfo( "Could not send SMS" + ";"  + ;
         "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + ;
         "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + ;
         "OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + ;
         "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" + ;
         "Message: " + oError:Description )
END
oError:=NIL
 

When I try to compile it gives an error.

Code: Select all  Expand view

xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6633)
Copyright 1999-2009, http://www.xharbour.org http://www.harbour-project.org/
Generating object output to 'objw\EPosta.obj'...
objw\EPosta.c(23): fatal error: Could not find include file "OBJSMS.xns".


Type: C >>>Couldn't build: EPosta.obj<<<

How Can I solve this? Thanks in advance.

[Enrico Maria Giordano]

objw\EPosta.c(23): fatal error: Could not find include file "OBJSMS.xns".

You are trying to include a non-existent file OBJSMS.xns.

EMG

[Horizon]

Hi Enrico,

There is not any line including this file. If I remove objSMS related file, There is not any error.

I think, When the xHB creating c file, It decide and include it. There is not any line prg and ppo files. But the c file as below.

Code: Select all  Expand view

#include "OBJSMS.xns"
extern HB_NS_OBJSMS OBJSMS;
/* Skipped DEFERRED call to: 'DIVERTCONSTRUCTORCALL' */
HB_FUNC_EXTERN( GETPROCADD );
HB_FUNC_EXTERN( TACTIVEX );

[Enrico Maria Giordano]

xHarbour can't invent an include file. Please double check your source code.

EMG

[Horizon]

Hi,

This is the sample of my problem. Could any one compile it?

Thanks,

Code: Select all  Expand view

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------------------//
 
function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Sending SMS from FiveWin"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION SendSMS() TOOLTIP "Send SMS"

   SET MESSAGE OF oWnd TO "Ready" NOINSET DATE TIME KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function SendSMS()

    MSgInfo("I am going to Send SMS")
    TRY
        objSMS := CREATEOBJECT( "MobilusSMS.Gateway" )
        objSMS:addtosmsbasket("Message 1","05334924505")
        objSMS:addtosmsbasket("Message 2","05334924505")
        strDonus := objSMS.sendsms("test-mb1000","4574","","")
        MSgInfo(strDonus)
        objSMS.clearsmsbasket()
        objSMS := Nil
    CATCH oError
      MsgInfo( "Could not send SMS" + ";"  + ;
             "Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + ;
             "SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + ;
             "OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + ;
             "SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" + ;
             "Message: " + oError:Description )
    END
    oError:=NIL


return nil

//----------------------------------------------------------------------------//

procedure AppSys  // Xbase++ requirement

return

//----------------------------------------------------------------------------//

[James Bott]

Hakan,

I did a compile of your sample program and I also get the

#include "OBJSMS.xns"

in the C file. I cannot find this in xharbour\include. I couldn't find in in Google either. Perhaps you need to post on the Harbour forum.

James

[Horizon]

Thank you James.

If you replace objSMS to diffrent one for example oAAA, It try to include the "oAAA.xns"

[James Bott]

Hakan,

This is definately a xHarbour issue, and it looks like it may be a bug. Perhaps the code hasn't been completed.

James

[Enrico Maria Giordano]

Code: Select all  Expand view

strDonus := objSMS.sendsms("test-mb1000","4574","","")

Code: Select all  Expand view

strDonus := objSMS:sendsms("test-mb1000","4574","","")

Code: Select all  Expand view

objSMS.clearsmsbasket()

Code: Select all  Expand view

objSMS:clearsmsbasket()

EMG

[Horizon]

You are right. I have replaced them and I can compile the code. Thanks.