|
摘要:消息,就是指Windows发出的一个通知,告诉应用程序某个事情发生了。例如,单击鼠标、改变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用程序。 消息本身是作为一个记录传递给应用程序的,这个记录中包含了消息的类型以及其他信息。例如,对于单击鼠标所产生的消息来说,这个记录中包含了单击...
阅读全文
摘要:http://zarko-gajic.iz.hr/firemonkey-mobile-android-ios-qr-code-generation-using-delphi-xe-5-delphizxingqrcode/FireMonkey / Mobile (Android, iOS) QR Co...
阅读全文
摘要:Delphi XE5 и MongoDB (продолжение)Продолжаем конспект из предыдущего постаhttp://blogs.embarcadero.com/asovtsov/index.php/archives/615, посвященного разбирательству, можно ли разрабатывать приложения на Delphi XE5, получающие и сохраняющие данные в БД MongoDB.Установка драйвера, сборка тестовых прим
阅读全文
摘要:在XE4中编写完程序后,怎么把相应的文件部署到ios虚拟机和真实机子中呢?下面就来说说。首先选择你要部署的项目,选择Project-》Deployment菜单Deployment菜单打开如下通过按钮把程序所需要的数据文件加载进来,在Remote Path中设置的值为StartUp\Documents。因为代码中取出该文件的路径的代码是begin{$IFDEF IOS} UniConnection1.database:= GetHomePath + PathDelim + 'Documents' + PathDelim +'ShoppingList.db';{$E
阅读全文
摘要:unit Unit11;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts, FMX.Memo, FMX.Platform, FMX.StdCtrls;type TForm11 = class(TForm) Memo1: TMemo; ToolBar1: TToolBar; Label1...
阅读全文
摘要:{ Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotmail.com) }unit UMain;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, ...
阅读全文
摘要:uses Androidapi.JNI.Os, Androidapi.JNIBridge;function GetVibratorArray(const AIntArr: array of Int64): TJavaArray;var LIndex: Integer;begin Result := TJavaArray.Create(Length(AIntArr)); for LIndex := Low(AIntArr) to High(AIntArr) do Result.Items[LIndex] := AIntArr[LIndex];end;procedure Vibra...
阅读全文
摘要:http://www.cnblogs.com/ChinaEHR/archive/2013/10/14/3368299.htmlhttp://www.raysoftware.cn/?p=378http://www.hxhlb.cn/article/32142aaeb67bbc05379369c3.htmlAndroid Sdk Base Path ***************** D:\adt-bundle-windows-x86_64-20130917\sdk Android Ndk Base Path ***************** D:\android-ndk-r9出...
阅读全文
摘要:万事大吉,只欠根据字体文件(.ttf文件)切换阅读字体,通常Android系统只带三种以下字体.一般用Java/Eclipse开发的话比较简单,typeface的createFromAsset,createFromFile之类的很容易使用.但是由于FireMonkey是跨平台的类库,必然不能和平台帮得太紧,所以提供了抽象的封装.但是也许Delphi XE5是Android平台的第一个版本,有些地方难免有疏漏,FireMonkey的封装没有提供更换字体的功能.但是我要实现的电子书阅读器换字体几乎是必须要实现的功能,所以只能给FireMonkey动动小手术了.FireMonkey的字体加载是由抽象
阅读全文
摘要:开发者之前说明 http://docwiki.embarcadero.com/RADStudio/XE5/en/Release_Notes_for_XE5
阅读全文
摘要:添加四个控件TToolbarAlignment: alTopTSpeedButtonAlignment: alRightStyleLookUp: detailstoolbuttonMargin, Right: 5 (this is set in case you want to carry this UI over to iOS as well, to account for both bordered (iOS6) and non-bordered (iOS7) button sizesTListBox with several itemsEach of the fourlistboxite
阅读全文
摘要:方法a.不使用Intent而是直接发短信.smsManager对应的Delphi代码应该是:uses Androidapi.JNI.JavaTypes,Androidapi.JNI.Telephony;var j: JSmsManager;begin j := tjsmsmanager.Create; j.sendTextMessage(stringtojstring('137114553XX'), nil, stringtojstring('测试短信'), nil, nil);end;至于双卡双待用哪个卡来发送这些我没有详细研究,有兴趣的朋友可以研究下.方法b
阅读全文
摘要:This is the only code that changes between the first and second code snippets: dlg.ShowModal(procedure(ModalResult: TModalResult) begin if ModalResult = mrOK then // if OK was pressed and an item is selected, pick it if dlg.ListBox1.ItemIndex >= 0 then edit1.Text := dlg.List...
阅读全文
摘要:unit Androidapi.JNI.Network;interfacefunction IsConnected: Boolean;function IsWiFiConnected: Boolean;function IsMobileConnected: Boolean;implementationuses System.SysUtils, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.JavaTypes, FMX.Helpers.Android;type JConnect...
阅读全文
摘要: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.Create; filter.addAction(TJIntent...
阅读全文
摘要:在VCL下,常用的询问对话框包括procedure TfrmMainVCL.btnAppMessageboxClick(Sender: TObject);begin if Application.MessageBox('是否退出?', '询问', MB_YESNO + MB_ICONQUESTION) = IDYES then begin Close; end;end;或者是:uses System.UITypes;procedure TfrmMainVCL.btnMessageDlgClick(Sender: TObject);begin if Message
阅读全文
摘要:在VCL中,关闭程序的主窗体也就意味着程序的主循环结束,主程序自然而然结束。所以在主窗体中使用窗体的关闭函数(Close)即可,如下:procedure TfrmMain.btncloseClick(Sender: TObject);begin Close;end;在FMX中,由Activity替代了Form的概念,虽然TForm类仍然存在,但MainForm通过关闭函数无法结束程序,使用Application.Terminate均无效,调整为:uses FMX.Platform.Android;procedure TForm2.SpeedButton1Click(Sender: TObjec
阅读全文
摘要:procedure SetBack(const AAction : JString); //后台运行。。var Intent: JIntent;begin Intent:= TJIntent.JavaClass.init(AAction); intent.addCategory(TJIntent.JavaClass.CATEGORY_HOME); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); SharedActivityContext.startActivity(Intent);end;调用SetBack(TJ...
阅读全文
摘要:其实都可以通过intent和URI调用系统功能.Windows程序员可以理解成是ShellExecute.这个是万金油.可以有调用各种功能.后面会介绍.1.短信息.很简单方法a.不使用Intent而是直接发短信.smsManager对应的Delphi代码应该是:usesAndroidapi.JNI.JavaTypes,Androidapi.JNI.Telephony;varj: JSmsManager;beginj := tjsmsmanager.Create;j.sendTextMessage(stringtojstring('137114553XX'), nil, stri
阅读全文
摘要:Delphi早就把IO相关的都提取到System.IoUtils单元中了.路径操作就使用TPath的方法都很方便.usesSystem.IoUtilsTPath.GetTempPath//临时目录TPath.GetCameraPath//照相机目录(照片/录像)TPath.GetMusicPath//音乐目录TPath.GetDownloadsPath//下载目录……如果使用TPath类的静态方法那么代码就是跨平台的,在Windows,Mac,iOS,Android上都能用.如果仅仅对Android的操作也可以使用Androidapi.IOUtils单元的那些GetXX的函数,也很简单,都没有
阅读全文
|