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 api实现抓屏

强大的Delphi rtti--兼谈需要了解多种开发语言

Delphi应用程序 paramstr（）带有参数

Delphi fdquery 判断记录为空

Delphi任务对话框ttaskdialog类介绍

Delphi内联汇编的一点心得

Delphi 删除只读文件

Delphi 从twebbrowser webbrowser得到全部html源码

Delphi 删除或清空一个目录(包含多级)

Delphi 按esc快捷键退出程序的简单方法

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

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