Delphi读取android短信信息

测试版本Seattle，支持xe系列

参考代码

//要加入读取权限 菜单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;

相关下载

点击下载