Return to home page    
Home Page View our selection of products Find out more about the services we offer A selection of downloads available Purchase online View our product manual documentation Talk to other members on our online forum A selection of companies we have worked for A selection of companies we work with Other useful resources on the web Get in touch

Sapphire IMEI Utility

Product Details
Online Manual
Download Demo
Supported Hardware

Sapphire IMEI Utility


Product Details

Sapphire RAS Utility Demo Application

If you are rolling out your application on Smartphone or Pocket PC phone edition devices, you may wish to record the device’s International Mobile Equipment Identifier (IEMI) or International Mobile Subscriber Identity (IMSI) numbers.

These numbers can be used to track what device and SIM card are being used by which user. It can also be used to ensure that the data on the device is kept unique by using the number as a device prefix within your data.

The Sapphire IMEI Utility allows both the IMEI and IMSI numbers to be read from SmartPhone and Windows Mobile devices.

You can download the latest demo version to see a fully working demo which you can reuse within your application as you see fit. This can be found on the download pages. The demo versions are fully functional and simply contain a popup message from time to time. These are ideal if you are selling your application to the client where you can be confident the application will work in practice and not just theory.

Click here to view a third party article on how to use the Sapphire IMEI Utility

Sample Code

Implementation couldn’t be easier, simply declare the DLL function as a function within your application and call it as though you wrote it yourself. Here’s a sample demo to how to retrieve the device’s IMEI number within VB.NET.

Public Function IMEI(ByVal lDeviceID As Integer) As String

  Dim sIMEIStore As String

  Dim hInstance As Integer


  sIMEIStore = Space(100)

  sIMEI(sIMEIStore, hInstance, lDeviceID, SapphireIMEILicence)

  IMEI = StripString(sIMEIStore)

End Function


Dim sIMEI As String

Dim lDeviceID As Integer


For lDeviceID = 0 To 10

  lblDeviceID.Text = "Device ID is " & lDeviceID


  sIMEI = IMEI(lDeviceID)

  If Len(sIMEI) >= 15 Then

    sIMEI = Mid(sIMEI, 1, 15)

    lblIMEI.Text = "IMEI Number is " & sIMEI


    Exit For

  End If

Next lDeviceID

Royalty Free Licence

When you purchase a developer’s licence, you are free to use the DLL in any number of your projects and deploy it to all the devices to your clients. There’s no need for royalties based on the scale of your project, just a one off fee. You will also get 12 months email support and discounted upgrades for future developments.

 Developer's Licence cost 199 GBP.

PayPal Purchase

home | products | services | downloads | store | manual | forum | clients | partners | links | contact
Terms and Conditions
Copyright ©, 2024 Sapphire Solutions Ltd
Website created by Martin Adams