×

Discussion Board

Results 1 to 2 of 2
  1. #1
    Registered User
    Join Date
    Mar 2009
    Posts
    1

    Unhappy Delphi 7 / SendSMS / Nokia 6124

    Hi All, this is my first test with Delphi7 and SDK3.0 but i'm missing some basilar informations i think..

    1) i've imported from c:\program file\common files\nokia\adapters\nclmsg.dll in delphi 7 using "project" "import type library"

    2) i've added in my project the new compiled unit NokiaCLMessaging_CLB

    3) i'm writing this Source code (trying to translating from VB example in the PDF guide of SDK3.0)

    Private
    { Private declarations }

    //nokia declarations
    smsObj: ShortMsgAdapter;
    submitObj: IGSMSubmit;
    ...

    Procedure TfrmMain.FormCreate(Sender: TObject);
    Begin
    //nokia init
    smsObj := CoShortMsgAdapter.Create;
    End;

    Procedure TfrmMain.FormClose(Sender: TObject; Var Action: TCloseAction);
    Begin
    //nokia destructor
    smsObj := Nil;
    End;

    Procedure TfrmMain.btnMobileSendClick(Sender: TObject);
    Var
    smsEntry: IShortMessageItem;
    headerArray: Array[0..5] Of Byte;
    app : IInterface;
    Begin
    //nokia sendsms
    Try
    smsEntry := CoShortMessageItem.Create;
    smsEntry.Set_type_(SHORTMESSAGE_TYPE_GSM_SUBMIT);

    smsEntry.Get_TypeProperties(app);
    submitObj := (app as IGSMSubmit);

    submitObj.Set_Message('test this sms');
    submitObj.Set_DestinationAddress('+39347xxxxxxx');
    submitObj.Set_ServiceCenterAddress('+39349xxxxxxx');
    submitObj.Set_ProtocolID(0);
    submitObj.Set_DataCodingScheme(0);
    submitObj.Set_ValidityPeriodRelative(255);

    headerArray[0] := 5; //header length
    headerArray[1] := 0; //concatenated sms
    headerArray[2] := 3; //length of information element A
    headerArray[3] := 48; //reference number
    headerArray[4] := 1; //no of messages
    headerArray[5] := 1; //sequence num,ber of sms

    //submitObj.Set_UserDataHeader(headerArray); ??????????????

    smsObj.SendSMS(SHORTMESSAGE_ROUTE_TYPE_ANY, submitObj);
    Except
    On e: exception Do
    showmessage(e.message);
    End;
    End;

    but nothing happens.. no sms received and no error shown..
    My trouble is: how can smsObj.SendSMS know with port (in my case usb port) send through this SMS?

    Opening HyperTerminal the first question is choosing the correct port (COM1, COM2, Nokia GSM Modem USB..) and with AT+CMGS command the SMS start normally..

    thanks in advance and sorry for my english (..i'm italian..)

  2. #2
    Registered User
    Join Date
    Jul 2009
    Posts
    1

    Re: Delphi 7 / SendSMS / Nokia 6124

    ciao trovato qualche soluzione?
    anche io uso delphi ma non trovo nulla per madare sms.

Similar Threads

  1. ###Upgrading Firmware###
    By zahid44 in forum General Development Questions
    Replies: 27
    Last Post: 2008-10-21, 07:17

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •