81c9b0506c
* contrib/*
* Deleted 'www.' from harbour-project.org website name.
(www.harbour-project.org -> harbour-project.org)
77 lines
2.0 KiB
Plaintext
77 lines
2.0 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* SIM test code
|
|
*
|
|
* Copyright 2009 Jose Luis Capel <jlcapel@hotmail.com>
|
|
* www - http://harbour-project.org
|
|
*/
|
|
|
|
#include "hbsim.ch"
|
|
|
|
PROCEDURE Main()
|
|
|
|
#if defined( __PLATFORM__WINCE )
|
|
|
|
LOCAL o
|
|
LOCAL l
|
|
LOCAL nTotal, nUsed
|
|
LOCAL a
|
|
|
|
o := wce_sim():New()
|
|
|
|
l := o:lInitialize()
|
|
|
|
IF l
|
|
Alert("Api Sim initialized!!"+STR( o:nLastError))
|
|
Else
|
|
Alert("Api Sim NOT initialized!!. Error "+STR(o:nLastError))
|
|
ENDIF
|
|
|
|
/*
|
|
IF o:lNumberOfPhoneBookEntries(SIM_PBSTORAGE_SIM, @nTotal, @nUsed )
|
|
Alert("Total Entries: "+STR(nTotal)+" ---- Used Entries: "+STR(nUsed))
|
|
ELSE
|
|
Alert("Error "+STR(o:nLastError)+" phone book entries")
|
|
ENDIF
|
|
|
|
a := o:aGetAllPhoneBookEntries()
|
|
Aeval(a, {| n, m | Alert("Phone: "+n[1]+hb_osNewLine()+"Name: "+n[2]+hb_osNewLine()+"Adr. Type: "+STR( n[3])+hb_osNewLine()+"Plan Type: "+STR( n[4])) })
|
|
*/
|
|
|
|
IF !o:lGetSimPhoneEntry( 1, SIM_PBSTORAGE_SIM, @a )
|
|
Alert("Pos 1 error")
|
|
ELSE
|
|
Alert("VALTYPE-> "+VALTYPE(a)+" LEN -> "+STR(LEN(a)),a[1][1])
|
|
Aeval(a, {| n, m | Alert("Phone: "+n[1]+hb_osNewLine()+"Name: "+n[2]+hb_osNewLine()+"Adr. Type: "+STR( n[3])+hb_osNewLine()+"Plan Type: "+STR( n[4]),"pos 1") })
|
|
ENDIF
|
|
|
|
IF !o:lGetSimPhoneEntry( 110, SIM_PBSTORAGE_SIM, @a )
|
|
Alert("Pos 123 error")
|
|
ELSE
|
|
Aeval(a, {| n, m | Alert("Phone: "+n[1]+hb_osNewLine()+"Name: "+n[2]+hb_osNewLine()+"Adr. Type: "+STR( n[3])+hb_osNewLine()+"Plan Type: "+STR( n[4]),"pos 110") })
|
|
ENDIF
|
|
|
|
IF !o:lSetSimPhoneEntry( 80, SIM_PBSTORAGE_SIM, "660099696", "pepeluis", SIM_NUMPLAN_UNKNOWN, SIM_ADDRTYPE_NATIONAL )
|
|
Alert("Error writing pos 80 Errpr=>"+STR(o:nLastError))
|
|
ENDIF
|
|
IF !o:lDelSimPhoneEntry( 80, SIM_PBSTORAGE_SIM )
|
|
Alert("Error deletein pos 80 Errpr=>"+STR(o:nLastError))
|
|
ENDIF
|
|
|
|
l := o:lDeInitialize()
|
|
IF !l
|
|
Alert("Not De-Initialized SIM api. Error :"+STR(o:nLastError))
|
|
ELSE
|
|
Alert("Api Sim Deinitialized!!!")
|
|
ENDIF
|
|
|
|
o:End()
|
|
|
|
#endif
|
|
|
|
RETURN
|