Delphi Android 获取通�记录

本文整理自网络，侵删。

 uses  Androidapi.Helpers,  Androidapi.JNI.GraphicsContentViewText,  Androidapi.JNI.Provider;
var  Cursor: JCursor;  Name: string;begin  Cursor := TAndroidHelper.Activity.getContentResolver.query(    TJCallLog_Calls.JavaClass.CONTENT_URI,    nil,    nil,    nil,    nil);  if Cursor.moveToFirst then  begin    while True do    begin      Name := JStringToString        (Cursor.getString(Cursor.getColumnIndex(StringToJString('NAME'))));      Memo1.Lines.Add(Name);      if not Cursor.moveToNext then        Exit;    end;  end;end;


完善一下：uses  System.DateUtils,  Androidapi.Helpers,  Androidapi.JNI.GraphicsContentViewText,  Androidapi.JNI.Provider;
var  Cursor: JCursor;  Name: string;  UnixDate: Int64;  Date: TDateTime;  Selection: string;begin  // 2016年4月1日至2016年6月1日  Selection := Format(    'DATE>%d and DATE<%d',    [DateTimeToUnix(EncodeDate(2016, 4, 1)) * 1000,    DateTimeToUnix(EncodeDate(2016, 6, 1)) * 1000]);
  // 3用参数定义条件  Cursor := TAndroidHelper.Activity.getContentResolver.query(    TJCallLog_Calls.JavaClass.CONTENT_URI,    nil,    StringToJString(Selection),    nil,    nil);  if Cursor.moveToFirst then  begin    while True do    begin      Name := JStringToString        (Cursor.getString(Cursor.getColumnIndex(StringToJString('NAME'))));      UnixDate := Cursor.getLong        (Cursor.getColumnIndex(StringToJString('DATE')));      Date := UnixToDateTime(UnixDate div 1000);      Memo1.Lines.Add(Name + ' ' + FormatDateTime('yyyy/mm/dd hh:nn:ss', Date));
      if not Cursor.moveToNext then        Exit;    end;  end;end; 

相关阅读 >>

Delphi读写文本文件 assignfile reset append

Delphi android 拨打电话

Delphi 对指定dbgrid进行排序

Delphi获取文件大小

Delphi字符串、数组操作函数

Delphi 颜色转换成 html 颜色代码

Delphi通过wmi获取系统信息

Delphi捕捉屏幕

Delphi常用获取系统信息的函数单元

Delphi线程中动态创建ado控件

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