Delphi读取android短信信息
测试版本Seattle，支持xe系列
参考代码
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 |
//要加入读取权限 菜单project--option--Uses Permissions--read sms改为true procedure TForm1.Button1Click(Sender: TObject); begin Button1.Visible := False; Detail2xiaoxiTabAction.ExecuteTarget(self); end; procedure TForm1.ListBox1ItemClick(const Sender: TCustomListBox; const Item: TListBoxItem); begin Memo1.Lines.Clear; Memo1.Lines.Add(ListBox1.Selected.ItemData.Text + #13#10#13#10 + ListBox1.Selected.ItemData.Detail); Button1.Visible := true; xiaoxi2detailTabAction.ExecuteTarget(self); end; procedure TForm1.Text1Click(Sender: TObject);//uses Androidapi.JNI.GraphicsContentViewText,Androidapi.Helpers var cursor: JCursor; SMSListBoxItem: TListBoxItem; begin ListBox1.Clear; AniIndicator1.Enabled:=True; AniIndicator1.Visible:=True; TabControl1.TabIndex := 0; Application.ProcessMessages; ListBox1.BeginUpdate; try cursor := TAndroidHelper.Activity.getContentResolver.query (StrToJURI('content://sms'), nil, nil, nil, nil); if (cursor.getCount > 0) then begin while (cursor.moveToNext) do begin SMSListBoxItem := TListBoxItem.Create(ListBox1); SMSListBoxItem.StyleLookup := 'listboxitemrightdetail'; SMSListBoxItem.ItemData.Accessory := TListBoxItemData.TAccessory.aMore; SMSListBoxItem.ItemData.Text := JStringToString (cursor.getString(cursor.getColumnIndex(StringToJString('ADDRESS')))); SMSListBoxItem.ItemData.Detail := JStringToString (cursor.getString(cursor.getColumnIndex(StringToJString('body')))); ListBox1.AddObject(SMSListBoxItem); end; end; finally cursor.close; ListBox1.EndUpdate; end; AniIndicator1.Enabled:=False; AniIndicator1.Visible:=False; end; |
相关下载
除特别注明外，本站所有文章均为阿明工作室原创，转载请注明出处来自https://www.amingstudio.com/delphi/186.html
