如何将布尔值(或整数)传递给intent并读取它(以检测我的活动是否从Android AlarmManager启动)?
我可以将我的Android应用程序设置为从Android AlarmManager开始的指定时间开始.它很好,我用 =" http://fire-monkey.ru/topic/2254-%D1%81%D1%82%82%82%B0%B0%D1%82%82%D1%8C%D1%D1%8Fandroid-%D0%B0%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2%B2% D1%82%D0%BE%D0%D0%D0%D0%D0%D0%BF%D1%D1%D1%D1%81%D0%BA-%D1%D0%D0%D0%BB%D1%D1%83%D0%D0%D0%B6%D0 %b1%D1%8b-%D0%bf%d0%be%D1%D1%81%D0%d0%d0%d0%b5-%d1%80%d0%d0%d0%d1%D1%81%D1%D1%D1%D0%D0%D0%B0%D1 D1 D1 D1
2 2024-02-15
编程技术问答社区
如何使用默认的Android电子邮件应用程序发送带附件的电子邮件-Delphi XE7
使用下面我在上找到的代码,该电子邮件似乎可以随附附件发送,但是当收到电子邮件时,没有附件.另外,必须手动输入电子邮件地址,它不受创建信息邮件声明的填充.我正在从Gmail帐户发送.有人帮助吗? procedure TForm1.CreateEmail(const Recipient, Subject, Content, Attachment: string); var Intent: JIntent; Uri: Jnet_Uri; AttachmentFile: JFile; begin Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_SEND); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, StringT
6 2024-02-15
编程技术问答社区
如何用代码读取安卓kitkat的短信 Delphi XE8
我很感谢在Android Kitkat上找到阅读SMS消息的工作代码的帮助.我知道该应用必须是具有相关权限的默认SMS应用程序.我真的不想使用任何弹出对话框惹恼用户,要求用户手动选择默认的SMS应用程序.我希望我的应用程序可以作为默认SMS执行,直到完成任务,然后将设置返回到使用我的应用程序之前的用户或工厂设置的原始默认SMS. . 目前,我无法显示任何SMS消息,也看不到原因.但是,我在测试设备上的默认SMS应用中看到了我的应用程序. 这是我使用的代码: function TForm1.Process_SMS: string; var cursor: JCursor; uri: Jnet_Uri; address, person, msgdatesent, protocol, msgread, msgstatus, msgtype, msgreplypathpresent, subject, body, smsid, servicecenter,
2 2024-02-12
编程技术问答社区
在Delphi firemonkey中听从OnCellInfoChanged的PhoneStateListener的问题
如果帮助我,这将不胜感激.我正在使用Delphi Firemekey编写一个节目,以显示移动单元格信息.我需要通过jphonestatelistener class收听单元信息更改. 首先,我为实施主类写一个类,如下所示: type TPL = class(TJavaGenericImport) public constructor create; Destructor Destroy; Override; procedure onCallForwardingIndicatorChanged(cfi: Boolean); cdecl; procedure onCallStateChanged(state: Integer; incomingNumber: JString); c
2 2024-02-11
编程技术问答社区
如何在Delphi Firemonkey中使用HextoBin for Android
我正在尝试将一些Windows代码用于Android,但我没有成功. 当我尝试编译以下代码时,我会收到一个错误: [DCC错误]没有这些参数可以调用的" Hextobin"的超载版本 var BinaryStream: TMemoryStream; HexStr: String; WSocket: TWSocket; begin HexStr := memo1.Text; BinaryStream := TMemoryStream.Create; try BinaryStream.Size := Length(HexStr) div 2; if BinaryStream.Size > 0 then begin HexToBin(PChar(HexStr), BinaryStream.Memory, BinaryStream.Size); HexStr:=''; HexStr:=Memor
0 2024-02-11
编程技术问答社区
如何在Delphi XE5中使用gmail应用程序发送电子邮件?
这很简单:我正在尝试使用Android的Gmail应用程序创建电子邮件,就像您使用Gmail共享某些内容时一样.我不知道该怎么做. 解决方案 找到了它: procedure TfrmSendMail.CreateEmail(const Recipient, Subject, Content, Attachment, Attachment2: string); var Intent: JIntent; Uri: Jnet_Uri; AttachmentFile: JFile; begin Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_SEND_MULTIPLE); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); Intent.putExtra(TJIntent.JavaClass
2 2024-02-11
编程技术问答社区
Delphi中的跨平台音频支持
我正在运行Delphi Tokyo,我正在寻找一种在Windows和Android上播放音频的方法(也许在某个时候iOS). 在Windows上,我可以使用PlaySound(PChar(ResourceName), 0, SND_RESOURCE or SND_ASYNC)之类的事情来做,但我却陷入了Android上.我已经尝试了TMediaPlayer,但是在开始播放之前大约需要一秒钟,这对于鼠标单击或屏幕点击的时间太长. 基本上我已经建立了一个扫雷者克隆,我正在寻找合理的支持(如果您想知道背景). 建议? 解决方案 有一些街机游戏演示可以使用音频类.请参阅您还可以查看是否有用于多平台快速声音效果的TMediaPlayer的替代方法?以说明对某些问题的描述这些演示中的音频管理类别的Android. 使用"游戏样本"中提供的最新版本的音频管理器,开发人员只需删除所有通知/检查音频文件实际上已加载并准备播放.我个人不喜欢简单地期望音频准备播放的想法.
0 2024-02-11
编程技术问答社区
安卓和iOS上的ipv6和TidHTTP问题
我们正在尝试连接到IPv6本地服务器地址.这是代码片段 _st := IdHTTP1.Get('http://[fe80::a6ee:57ff:fe5c:7de6]:8000/reparti'); 问题是: 如果我们为Windows编译 - >它可以使用JSON响应 如果我们为Android或ios进行编译 - >我们获得 "套接字错误#22无效参数" 且没有响应,服务器未接收任何请求 我们缺少什么? 谢谢您的支持 解决方案 您尝试连接到的IP地址是不完整的.它缺少强制性范围ID.
0 2024-02-11
编程技术问答社区
如何使用Delphi和API在安卓系统中发出提示音?
查看androidapi.jni.media.pas后,我对以下过程进行了编码: uses Androidapi.JNIBridge, AndroidApi.JNI.Media; procedure Sound(ADuration: Integer); implementation procedure Sound(ADuration: Integer); var Volume: Integer; StreamType: Integer; ToneType: Integer; ToneGenerator: JToneGenerator; begin Volume := TJToneGenerator.JavaClass.MAX_VOLUME; StreamType := ? ToneType := TJToneGenerator.JavaClass.TONE_DTMF_0; ToneGenerator := TJToneGenera
0 2024-02-11
编程技术问答社区
Delphi 10.1 Berlin-Java2OP: 预计的类或接口
我正在使用Delphi 10.1 Berlin.我想从Delphi调用Java代码.因此,我在Android Studio中创建了JAR文件(此链接对我有帮助).然后,我从C:\Program Files (x86)\Embarcadero\Studio\18.0\bin\converters\java2op目录打开Java2OP.exe.我将罐子文件移至此目录.然后我在CMD中工作了此命令: SET PATH=%PATH%;"C:\Program Files\Java\jdk1.8.0_60\bin" Java2OP.exe -jar ..\libmylib.jar -unit ..\Androidapi.JNI.MyLib 但是我得到了这个错误: Warning: error opening ReservedWordsOP.txt Warning: error opening ReservedWordsC.txt Parsing xml: C:\Program Files
6 2024-02-11
编程技术问答社区
Delphi Android应用程序在键盘连接/断开时崩溃
创建一个Android应用程序,丢弃编辑框,运行该应用程序. 连接条形码扫描仪,应用程序崩溃. 连接条形码扫描仪并运行应用程序,一切正常. 断开扫描仪和应用程序崩溃的连接. 如果应用程序是Runnig,则无论是蓝牙还是有线,都无法连接/断开键盘/条形码扫描仪. 有什么想法吗? 类似于应用程序在关闭Android Delphi XE7上关闭密钥板时崩溃 但这不是同一问题. 从运行应用程序中的logcat,然后连接条形码扫描仪 01-28 15:23:26.724 I/ActivityManager(668): START u0 {act=android.intent.action.MAIN cat=[android.intent.category.LAUNCHER] flg=0x10200000 cmp=com.embarcadero.HeaderFooterApplication/com.embarcadero.firemonkey.FMXNati
0 2024-02-10
编程技术问答社区
如何在android/ios下用delphi应用程序全时跟踪用户位置
即使用户不使用我的应用程序,我也需要一直跟踪用户位置.但是,我对Android/iOS体系结构的了解并不了解如何做到这一点. 我需要一直使我的完整应用程序一直在记忆中活着(我认为这会有点浪费资源),还是我需要创建一个小型应用程序(甚至不知道是否可能) )做这项工作? 解决方案 尝试将Android Service与start_sticky属性一起使用. 在背景线程中,您可以收听位置更改(请勿使用标准位置ENSONOR-仅实现基于Java接口的解决方案). 您还可以找到iOS背景操作的示例. 对于Android,您可能对单位Androidapi.JNI.Location 感兴趣 TLocationListener = class(TJavaLocal, JLocationListener) public procedure onLocationChanged(location: JLocation); cdecl; procedure on
0 2024-02-09
编程技术问答社区
当设备打开时启动应用程序(在启动完成时),火钥匙
我正在尝试 auto start delphi and delphi and delphi android and delphi android android应用程序构建启动时启动的Android Firemonkey应用 引用文章: 如何使用广播接收器在boot_complet在Android设备上自动启动Delphi XE5应用程序. 在Good Ol’Dos天中,我们可以将其添加到AutoExec.bat后启动后启动应用程序.在Windows下,您可以使用注册表或使用MSCONFIG查看启动程序来添加一个程序.但是,这在Android下如何工作? 可以通过创建聆听boot_completed Broadcast Intent的广播接收器来自动启动Delphi XE5 Android应用程序. 本文使用Delphi Xe5: 创建这样的广播接收器所需的步骤 创建一个新的Delphi XE5 Android项目 SET使用权限以接收启动完成 修改Andr
2 2024-02-09
编程技术问答社区
Delphi 10 西雅图背景服务和线程
使用Delphi 10 Seattle Update 1创建Android应用程序. 基本目标是让应用程序每隔几(4)个小时弹出通知,以提醒用户起床并移动. 我创建了基本UI并创建了背景服务.在服务中,我可以使用tnotificationcenter发布通知,但我需要定期发布通知. 基于在以下网站上找到的建议... embarcadero delphi delphi delphi delphi xe10 android Service and android Service in a android and android Services/li> 也是与产品一起运送的AndroidNotificationersvedemo ... 我意识到我无法在Android服务中使用TTIMER.我还试图创建一个TTASK,TTHREAD.CREATEANNOMMISTERREAD,以及来自AndroidServicestArtCommand和AndroidServi
0 2024-02-09
编程技术问答社区
Firemonkey FTDI XE7 d2xx.jar 驱动程序
我正在使用D2XX And​​roid驱动程序,在Firemonkey xe7上使用FT232RL进行项目. Android平板电脑 USB FT232RL卡. 我从d2xx.jar使用java2op创建了单元(androidapi.jni.d2xx.pas),将其添加到库中,编译和构建.但是,当我尝试使用一些课程时,我只会出现错误.我尝试: context:= SharedActivityContext; D2xxManager := TJD2xxManager.Create; // fragmentation error devCount := D2xxManager.createDeviceInfoList(context); 和 D2xxManager := TJD2xxManager.JavaClass.getInstance(SharedActivityContext); devCount := D2xxManager.createDevice
0 2024-02-09
编程技术问答社区
有可能用delphi读取安卓上其他应用程序的通知吗?
我正在尝试在RAD Studio XE7中为Android的应用程序中读取其他应用程序的通知. 抬头看,我在Java看到,您可以访问NotificationListenerService,但如果使用Delphi可以访问此服务,则无法访问NotificationListenerService.可以做吗? 解决方案 您可以使用NotificationListenerService读取其他应用的通知,这是 的方式 步骤1:准备一切 在您的项目文件夹中创建一个名为Java 的文件夹 现在在该文件夹内部创建一个名为SRC的文件夹,并在其中创建一个与您的应用程序包名称相同的文件夹结构,例如:src/com/com/embarcadero/$ yourapp 内部src/com/embarcadero/$ yourapp添加以下Java文件为 notificationationservice.java package com.embarcadero.$Yourapp;
2 2024-02-09
编程技术问答社区
如何知道安卓/ios的可用磁盘空间?
在将文件保存到高速缓存目录之前,我想知道设备上有多少空间(尤其是缓存目录所在的可用空间).如何在Android和iOS上执行此操作?我在柏林Delphi. 解决方案 好吧,这是所有板块的解决方案(取自 {$IFDEF ANDROID} aStatFS := TJStatFs.JavaClass.init(StringToJstring(aDir)); if (TJBuild_VERSION.JavaClass.SDK_INT
0 2024-02-09
编程技术问答社区
检测ListViewItem被点击/按下的位置
在Delphi Xe8中使用Firemonkey tlistview. 我有一个大约5个项目的listView.每个项目都有图像. 一个人如何单击/按下图像时如何检测? 我一直在研究该过程: OnItemClickEx ,但我不明白如何使用它.不确定这是否是我需要使用的. 任何帮助都很棒. 谢谢, 解决方案 设置ListVie Image Image Object属性.. procedure TForm1.OnFormCreate(Sender:TObject) begin ListView1.ItemAppearanceObjects.ItemObjects.Image.Align := TListItemAlign.Leading; ListView1.ItemAppearanceObjects.ItemObjects.Image.VertAlign := TListItemAlign.Center; ListVie
0 2024-02-09
编程技术问答社区
如何在Firemonkey(android)中调整ListBox项的高度以适应文本?
我正在使用此代码将项目添加到列表箱中,但是我无法弄清楚如何动态调整项目的高度以适合文本: procedure TmForm.AddItemBtnClick(Sender: TObject); var Item: TListBoxItem; begin Item := TListBoxItem.Create(nil); Item.Parent := SomeListBox; Item.StyleLookup := 'listboxitemstyle'; Item.Text := 'Pe cararea lunga scurta se ducea un om venind, si-n tacerea lui ' + 'profunda se auzea borborosind. Cantr-o noapte intunecoasa soarel' + 'e lucea pe cer,
2 2024-02-08
编程技术问答社区
Delphi Firemonkey Android平台上的ShowVirtualKeyboard如何运行?
考虑: Uses FMX.VirtualKeyboard, FMX.Platform; procedure TForm1.Button1Click(Sender: TObject); var Keyboard: IFMXVirtualKeyboardService; begin keyboard := TPlatformServices.Current.GetPlatformService(IFMXVirtualKeyboardService) as IFMXVirtualKeyboardService; if TVirtualKeyboardState.Visible in keyboard.VirtualKeyBoardState then begin Keyboard.HideVirtualKeyboard; end; end; hidevirtualkey
8 2024-02-07
编程技术问答社区