Delphi读取android短信信息

本文整理自网络，侵删。

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

相关阅读 >>

Delphi 获取指定年月的周、日数 -weeksinayear、weeksinyear、daysinayear、daysinamonth、daysinyear、daysinmonth

Delphi中窗体的方法

Delphi memo1 行随机打乱

Delphi gb2312 编码转义url字符串

Delphi 软关闭显示器的代码

Delphi varchar和nvarchar区别

Delphi 用拼音首字符检索汉字的源代码

Delphi 如何将图片转换成文本

Delphi 获取其他进程句柄的几种方法

Delphi 获取当前系统语言环境（en，fr，ja等）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi读取android短信信息