RSS订阅 | 匿名投稿
您的位置:网站首页 > FMX > 正文

Delphi读取android短信信息

作者:admin 来源: 日期:2019/4/8 14:07:22 人气: 标签:

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: