&&&&QR5.05_XE5_x86_x64(跟DELPHI7一样的去qreport).rar
QR5.05_XE5_x86_x64(跟DELPHI7一样的去qreport).rar
好像XE5里面没有像DELPHI7一样的QREPORT报表控件，现在提供下载，希望有帮助，里面有X86和X64的WIN732位和WIN764位我都测试过了没有问题
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
开发技术下载排行查看: 2777|回复: 4
Delphi XE6、XE5、XE7在Android创建快捷方式
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
Delphi XE7&Delphi XE6&Delphi XE5&
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
(11.56 KB, 下载次数: 108)
08:18 上传
点击文件名下载附件
shortcut (1).jpg (8.33 KB, 下载次数: 62)
08:18 上传
本文章介绍了Delphi XE6、XE5、XE7在Android创建快捷方式，创建的代码首先需要为应用添加权限INSTALL_SHORTCUT ，然后添加下面的代码，就可以实现这样的功能
uses
&&System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
&&FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
&&FMX.MobilePreview, Androidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android,
&&Androidapi.JNI.JavaTypes, FMX.Platform.Android, AndroidApi.JniBridge, AndroidApi.Jni.App,
&&AndroidAPI.jni.OS;复制代码procedure THeaderFooterForm.Button1Click(Sender: TObject);
{$IFDEF ANDROID}
var
&&ShortcutIntent: JI
&&addIntent: JI
&&wIconIdentifier :
&&wIconResource : JIntent_ShortcutIconR
{$ENDIF}
begin
{$IFDEF ANDROID}
&&ShortcutIntent := TJIntent.JavaClass.init(SharedActivityContext, SharedActivityContext.getClass);
&&ShortcutIntent.setAction(TJIntent.JavaClass.ACTION_MAIN);
&&addIntent := TJIntent.C
&&addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_INTENT, TJParcelable.Wrap((shortcutIntent as ILocalObject).GetObjectID));// here we need to cast the intent as it's not done in delphi by default, not like java
&&addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_NAME, StringToJString(Application.Title));
&&addIntent.setAction(StringToJString('com.android.launcher.action.INSTALL_SHORTCUT'));
&&// get icon resource identifier
&&wIconIdentifier := SharedActivity.getResources.getIdentifier(StringToJString('ic_launcher'), StringToJString('drawable'), StringToJString('com.embarcadero.HeaderFooterApplication')); // if the app name change, you must change the package name
&&wIconResource := TJIntent_ShortcutIconResource.JavaClass.fromContext(SharedActivityContext, wIconIdentifier);
&&// set icon for shortcut
&&addIntent.putExtra(TJIntent.JavaClass.EXTRA_SHORTCUT_ICON_RESOURCE, TJParcelable.Wrap((wIconResource as ILocalObject).GetObjectID));
&&SharedActivityContext.sendBroadcast(addIntent);
转载请保留当前帖子的链接： 谢谢！
搜索简单，分享不易，且分享且珍惜，您难道不想分享下您的心得？如果觉得本文章好的话，您可以在我们网站上注册，然后发布您的好的心得，让大家共同进步，谢谢！
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
代码经过测试 有效
主题帖子积分
金牌会员, 积分 1537, 距离下一级还需 1463 积分
金牌会员, 积分 1537, 距离下一级还需 1463 积分
支持一下，给力。
主题帖子积分
新手上路, 积分 20, 距离下一级还需 30 积分
新手上路, 积分 20, 距离下一级还需 30 积分
感谢分享，试用下，再来评论。
主题帖子积分
注册会员, 积分 155, 距离下一级还需 45 积分
注册会员, 积分 155, 距离下一级还需 45 积分
直接下载的源码文件，解开编译出错。
[DCC Error] HeaderFooterTemplate.pas(43): E2003 Undeclared identifier: 'SharedActivityContext'
我是xe7+，另外我怎么没找到INSTALL_SHORTCUT的权限？
Powered by习惯用INI保存小批量的数据的方法其实在安卓上也可以使用。但是更正宗的可能还是使用SharedPreferences。SharedPreferences也是一种轻型的数据存储方式，它的本质是基于XML文件存储key-value键值对数据，通常用来存储一些简单的配置信息。其存储位置在/data/data/&包名&/shared_prefs目录下。Java 原型是这样的（网上随便搜的代码）public class SharedPreferencesUtil {
//存储的sharedpreferences文件名
private static final String FILE_NAME = "save_file_name";
* 保存数据到文件
* @param context
* @param key
* @param data
public static void saveData(Context context, String key,Object data){
String type = data.getClass().getSimpleName();
SharedPreferences sharedPreferences = context
.getSharedPreferences(FILE_NAME, Context.MODE_PRIVATE);
Editor editor = sharedPreferences.edit();
if ("Integer".equals(type)){
editor.putInt(key, (Integer)data);
}else if ("Boolean".equals(type)){
editor.putBoolean(key, (Boolean)data);
}else if ("String".equals(type)){
editor.putString(key, (String)data);
}else if ("Float".equals(type)){
editor.putFloat(key, (Float)data);
}else if ("Long".equals(type)){
editor.putLong(key, (Long)data);
* 从文件中读取数据
* @param context
* @param key
* @param defValue
public static Object getData(Context context, String key, Object defValue){
String type = defValue.getClass().getSimpleName();
SharedPreferences sharedPreferences = context.getSharedPreferences
(FILE_NAME, Context.MODE_PRIVATE);
//defValue为为默认值，如果当前获取不到数据就返回它
if ("Integer".equals(type)){
return sharedPreferences.getInt(key, (Integer)defValue);
}else if ("Boolean".equals(type)){
return sharedPreferences.getBoolean(key, (Boolean)defValue);
}else if ("String".equals(type)){
return sharedPreferences.getString(key, (String)defValue);
}else if ("Float".equals(type)){
return sharedPreferences.getFloat(key, (Float)defValue);
}else if ("Long".equals(type)){
return sharedPreferences.getLong(key, (Long)defValue);
}　　DELPHI XE5以上的写法是这样的：（网上搜的，哈哈）uses AndroidApi.Jni.JavaTypes, AndroidApi.Jni.App,AndroidApi.Jni.GraphicsContentViewText,FMX.Helpers.A{$R *.fmx}procedure TForm1.Button1Click(Sender: TObject);var
Prefs: JSharedP
Editor: JSharedPreferences_E
Prefs := SharedActivity.getPreferences(TJActivity.JavaClass.MODE_PRIVATE);
Editor := Prefs.
Editor.putInt(StringToJString('MyIntKey'), 999);
Editor.putFloat(StringToJString('MyFloatKey'), 123.456);
Editor.putString(StringToJString('MyStrKey'), StringToJString('This is a test'));
I := Prefs.getInt(StringToJString('MyIntKey'), 0);
F := Prefs.getFloat(StringToJString('MyFloatKey'), 0);
S := Prefs.getString(StringToJString('MyStrKey'), StringToJString(''));　　}