Firemonkey Android的访问日历和活动 [英] Firemonkey Android Access Calendar and Events

查看:335
本文介绍了Firemonkey Android的访问日历和活动的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!

问题描述

我如何访问使用Delphi XE5日历和事件在Android上。

解决方案

要访问日历时,您可以使用的 日历 类,它被重新由 JCalendar 类psented $ P $德尔福。

您可以找到一组样品这里

这是一个Delphi样品

 用途
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Helpers.Android,
  Androidapi.JNI.JavaTypes;


程序TForm1.Button1Click(发件人:TObject的);
变种
  意图:JIntent;
  日历:JCalendar;
开始
  日历:= TJCalendar.JavaClass.getInstance;
  意图:= TJIntent.Create;
  Intent.setType(StringToJString('vnd.android.cursor.item /事件'));
  intent.putExtra(StringToJString('BEGINTIME'),Calendar.getTimeInMillis());
  intent.putExtra(StringToJString('allDay),真正的);
  intent.putExtra(StringToJString('RRULE'),StringToJString('FREQ =每年'));
  intent.putExtra(StringToJString('endTime的'),Calendar.getTimeInMillis()+ 3600 * 1000);
  intent.putExtra(StringToJString(标题),StringToJString(你好,从德尔福'));
  SharedActivity.startActivity(意向);
结束;
 

How do I access the Calendar and Events on Android using Delphi XE5.

解决方案

To access the calendar you can use the Calendar class which is represented by the JCalendar class in Delphi.

You can find a set of samples here

And this is a Delphi sample

uses
  Androidapi.JNI.GraphicsContentViewText,
  FMX.Helpers.Android,
  Androidapi.JNI.JavaTypes;


procedure TForm1.Button1Click(Sender: TObject);
var
  Intent: JIntent;
  Calendar: JCalendar;
begin
  Calendar := TJCalendar.JavaClass.getInstance;
  Intent := TJIntent.Create;
  Intent.setType(StringToJString('vnd.android.cursor.item/event'));
  intent.putExtra(StringToJString('beginTime'), Calendar.getTimeInMillis());
  intent.putExtra(StringToJString('allDay'), true);
  intent.putExtra(StringToJString('rrule'), StringToJString('FREQ=YEARLY'));
  intent.putExtra(StringToJString('endTime'), Calendar.getTimeInMillis()+3600*1000);
  intent.putExtra(StringToJString('title'), StringToJString('Hello from Delphi'));
  SharedActivity.startActivity(Intent);
end;

这篇关于Firemonkey Android的访问日历和活动的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!

查看全文
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆