• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

[Basic4Android] Bài 18 - Thao tác với SMS (ContentResolver)

Lập trình cho Android Phone

Điều hành viên: tummosoft

Hình đại diện của người dùng
tummosoft
Điều hành viên
Điều hành viên
Bài viết: 332
Ngày tham gia: T.Hai 19/05/2014 2:23 pm
Has thanked: 7 time
Been thanked: 59 time
Liên hệ:

[Basic4Android] Bài 18 - Thao tác với SMS (ContentResolver)

Gửi bàigửi bởi tummosoft » T.Bảy 02/08/2014 3:53 pm

Bài 18 tiếp tục làm việc với ContentResolver, đọc tin nhắn, phân loại các tin nhắn...

* Đường dẫn Uri tương ứng

Inbox = "content://sms/inbox"
Failed = "content://sms/failed"
Queued = "content://sms/queued"
Sent = "content://sms/sent"
Draft = "content://sms/draft"
Outbox = "content://sms/outbox"
Undelivered = "content://sms/undelivered"
All = "content://sms/all"
Conversations = "content://sms/conversations".


* Chú ý: Thêm quyền cho tập tin Manifest

AddPermission("android.permission.READ_SMS")

  1. Sub Activity_Create(FirstTime As Boolean)
  2.     'Do not forget to load the layout file created with the visual designer. For example:
  3.     Activity.LoadLayout("main")
  4.    
  5.     If FirstTime Then
  6.       cr.Initialize("cr")
  7.    End If
  8.    Dim smsUri As Uri
  9.    smsUri.Parse("content://sms")
  10.    Dim address As String = ""
  11.    Dim crsr As Cursor = cr.Query(smsUri, Array As String("thread_id", "body"), "address LIKE ?", _
  12.       Array As String("%" & address & "%"), "")
  13.    For i = 0 To crsr.RowCount - 1
  14.       crsr.Position = i
  15.       Dim tid As Int = crsr.GetInt("thread_id")
  16.      ' Log(tid)
  17.      'Log(crsr.GetString("body"))
  18.       ListView1.AddTwoLines(tid, crsr.GetString("body"))
  19.    Next
  20.    crsr.Close  
  21. End Sub


Hình ảnh


:) Tummo Software :D
http://tummosoft.com

Quay về “Android”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách