最近要在Android中使用对话框, 但发现无现成的, TOpenDialog等已经不支持移动设备,还好系统提供了一些文件目录函数可用,于是简单的模拟了一个,支持OpenDialog ,SaveDialog, SelectDirectory, 以及文件过滤和多选. 截了一些图片,好像有些失真,还是以真机为准. OpenDialog : SaveDialog: SelectDirectory: 图片多选过滤: 工程下载:http://download.csdn.net/detail/flcop/6…

{ Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotmail.com) } unit UMain; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.For…

转自: http://bbs.2ccc.com/topic.asp?topicid=438595 首先感谢iny的绿色版,因为我的精简Win7 32位安装原版镜像4.63G过程正常,但是编译出错,后来用绿色版一切正常. 由于iny绿色版自带的SDK和NDK都是原版ISO里面提取的非最新版本,所以下载更新里面的文件后,绿色程序不能配置安卓环境.所以这里从头到尾说一次安装方法,成功人士或者完全版人士请略过. 一.下载以下文件:1:最新的JDK-->   http://www.oracle.com/t…

本篇文章我们来看一下delphi xe5 在android程序里怎样启动照相机并获取所拍的照片,本代码取自xe自带打sample,路径为: C:\Users\Public\Documents\RAD Studio\12.0\Samples\MobileCodeSnippets\AccessCameraApp 1.前两步骤新建firemonkey mobile application 然后 选择blank application 2.界面摆放如下: toolbar .image .actionli…

1. 确保正确安装Android SDK: 开始菜单 > 所有程序 > Embarcadero RAD Studio XE5 > > Android Tools > 打开 Android sdk manager  下载包文件, 如果无法更新包文件,请在hosts文件中添加一行 74.125.31.136  dl-ssl.google.com . 2. 确保正确配置AVD: Android SDK Manager > tools > manage AVDS(此时,你…

本文摘自 http://redboy136.blog.163.com/blog/static/107188432201381872820132 要发布android应用,必须做签名的.看一下具体的操作步骤: 1.进入Project-Options: 2.打开Options窗口,选择Provisioning,在这里,可以为目标平台选择签名文件,也可生成新的签名文件. 2.1 选择目标平台,可以为dubug或release设置签名,默认情况下,debug签名文件是存在的,可不用设置,这也是我们建立一…

xe5 android的服务端和手机客户端的源代码下载地址 http://files.cnblogs.com/nywh2008/AndroidTest.rar…

TTS是Text To Speech的缩写,即“从文本到语音”,是人机对话的一部分,让机器能够说话. 以下代码实现xe5 开发的文本转语音的方法 和访问蓝牙一样,这里用javaclass的接口实现 接口声明部分: {*******************************************************} { } { CodeGear Delphi Runtime Library } { Copyright(c) 2013 Jeff Overcash } { } {****…

转载自  http://www.raysoftware.cn/ 其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功能.后面会介绍. 1.短信息.很简单 方法a.不使用Intent而是直接发短信. smsManager对应的Delphi代码应该是: uses   Androidapi.JNI.JavaTypes,Androidapi.JNI.Telephony; var   j: JSmsManager; beg…

摘自:http://blogs.embarcadero.com/vsevolodleonov/2013/09/19/are-you-asking-about-app-size-by-delphi-for-android/ You’re asking about app size? Not a news. Since Delphi 1 people’re  asking "why Windows calculator is 33 kb, while Delphi version of the sa…

UsesAndroidapi.JNI.GraphicsContentViewText, FMX.Helpers.Android,Androidapi.JNI.JavaTypes, FMX.Platform.Android, AndroidApi.JniBridge, AndroidApi.Jni.App,AndroidAPI.jni.OS; procedure TForm1.FormCreate(Sender: TObject); {$IFDEF ANDROID}varShortcutInten…

直接上代码: unit OpenViewUrl; interface // URLEncode is performed on the URL// so you need to format it protocol://path function OpenURL(const URL: string; const DisplayError: Boolean = False): Boolean; implementation uses IdURI, SysUtils, Classes, FMX.Di…

上一篇我们创建了一个拟给手机端访问的webservices服务 接下来创建一个返回数据集的过程,用webservices发布,供手机端调用.这里我使用firedac 1.打开上一篇自动创建的WebModule 然后分别拖放以下数据连接控件 FDConnection1:firedac连接数据库的    FDPhysMSSQLDriverLink1: 数据驱动 选的是sqlserver ,另外还有 db2 ,oracle,acess ,excel ,sqllite,mysql等    FDQuery…

第一篇我们破解并安装了xe5 第二篇我们搭建了开发环境 接下来我们开发一个三层的android程序 建立一个webservices  stand-alone vcl application 作为手机访问的服务端 1.new->other->webservices 2.选择 stand-alone vcl application 3.这里使用 默认端口8080 4.选择创建接口 5.给服务起个名字 6.点ok后保存工程,保存为目录如下: 7.至此为止,什么代码都不写,点击运行,我们看到 8.启动…

unit Androidapi.JNI.Network; interface function IsConnected: Boolean; function IsWiFiConnected: Boolean; function IsMobileConnected: Boolean; implementation uses System.SysUtils, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, Androidap…

Uses FMX.Platform.Android; ... begin {退出程序} MainActivity.finish; end;…

unit Android.JNI.Toast; // Java bridge class imported by hand by Brian Long (http://blong.com) interface {$IFDEF ANDROID} uses Androidapi.JNIBridge, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText; {$ENDIF} {$IFDEF ANDROID} type TToa…

以下代码能监控到以下几个事件: FinishedLaunching     BecameActive     WillBecomeInactive    EnteredBackground    WillBecomeForeground    WillTerminate    LowMemory    TimeChange    OpenURL unit Unit11; interface uses System.SysUtils, System.Types, System.UITypes, S…

        下载style 然后在deployment里添加进去 http://files.cnblogs.com/nywh2008/styles.rar 在AndroidManifest.template.xml 中增加段儿(粗体部分): <activity android:name="com.embarcadero.firemonkey.FMXNativeActivity"                android:label="%activityLabel…

本文部分内容摘自: http://www.pclviewer.com/android/用以下代码中的接口实现控制蓝牙的开.关及详细信息 unit Androidapi.JNI.BluetoothAdapter; // (c) RedTitan Technology // JNI BLUETOOTH import demo // Note - REQUIRES - PROJECT OPTIONS - USES PERMISSIONS - BLUETOOTH interface uses Andro…

1.在界面上添加 TStyleBook 控件 2.点击Resource 选择xe5程序安装带的几个风格的其中之一,路径存放在: C:\Program Files\Embarcadero\RAD Studio\12.0\Redist\styles\Fmx 3.在窗体上的StyleBook 属性选择StyleBook1,如图界面风格变为这样了: 如果您要编辑这个风格样式,可以直接编辑 :)…

本篇我们介绍一下在android手机上怎样使用sqlite数据库,这里用Navigator实现 增删改查. 1.新建firemonkey mobile application 2.选择blank application 3.这里选择分辨率,仍旧选择我女儿称呼的平板手机p3100的7寸分辨率   O(∩_∩)O~ ,界面上摆放一个open按钮,一个grid 同时拖拽一个  FDConnection  和    FDPhysSQLiteDriverLink1    FDQuery1  另外根据运行结…

安装xe5以后demo存放的路径在  C:\users\Public\Documents\RAD Studio\12.0\Samples 另外易博龙在sourceforget上也有 svn地址为:svn://svn.code.sf.net/p/radstudiodemos/code/trunk 本来想看看 MobileCodeSnippets\AccessCameraApp 和 MobileCodeSnippets\CameraComponent 控制摄像头,可惜都只支持ios…

上几片文章我们把供手机端调用的web服务完成,接下来实现手机端调用webservices获取数据 1.新建firemonkey mobile application 2.选择blank application 3.这里选择分辨率,我用的手机是三星的p3100,没别的优点 就是大,7寸的屏,我女儿管这个叫平板手机  O(∩_∩)O~ 4.界面布局摆放如下: 5.绑定数据集 xe5中使用livebingding来绑定数据集,没有datasource属性了,理论上所有的控件都可以绑定数据集. 先在cl…

unit Androidapi.JNI.Network; interface function IsConnected: Boolean; function IsWiFiConnected: Boolean; function IsMobileConnected: Boolean; implementation uses System.SysUtils, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, Androidap…

不多讲,直接上代码了. 代码来自网络 http://files.cnblogs.com/nywh2008/Bluetooth_LEDs_android.rar…

C:\Users\Public\Documents\RAD Studio\12.0\Samples\FireMonkeyMobile\ListView 路径下有两个dpk,装完后listview也能实现listbox的效果了 procedure TFormMain.FillListBox; var // item:TMetropolisUIListBoxItem; // listitem:TListboxItem; p: PpatientData; LItem: TListViewItem; i…

实现下拉菜单式的效果,本代码是国外的网站上下载的..,不是原创. 源码下载地址 :  http://files.cnblogs.com/nywh2008/popumenu.rar…

uses AndroidAPI.JNI.GraphicsContentViewText, AndroidAPI.JNI.JavaTypes, AndroidAPI.JNI.OS; function BatteryPercent(const aContext: JContext): Integer; var filter: JIntentFilter; battery: JIntent; level, scale: Integer; begin filter := TJIntentFilter.C…

listbox实现以下效果: \ 关键代码,采用数据集的方式 type PpatientData=^RpatientData; RpatientData= record patient_id:string; admiss_times:Integer; inpatient_no:string; name:string; sex:string; bed_no:string; nurse_level:string; diag:string; end; var item:TMetropolisUILis…