Articles of delphi

如何在Android上保存文件? (Firemonkey)

如何使用Delphi(XE5,Firemonkey)在Android设备上本地保存文件? 一些简单的事情 Memo.Lines.SaveToFile('test.txt') 似乎没有工作。 它会导致以下错误消息: “不能创build文件”/test.txt“,不是目录。”

从Delphi Firemonkey XE5应用程序在Android上拍照

有没有人能够使用Delphi Firemonkey XE5编写的应用程序从Android上的相机拍照? video捕捉怎么样? 这被认为是一个框架中的错误,或者只是缺less关于它的文档。 任何人都可以告诉为什么代码下面不工作/从Android上的相机检索任何图像? 在表单上放置了一个TCameraComponent,还有一个TImage组件,而且没有任何反应。 procedure TCameraComponentForm.OnCreate(Sender: TObject); begin CameraComponent1.Kind := FMX.Media.TCameraKind.ckFrontCamera; CameraComponent1.FlashMode := FMX.Media.TFlashMode.fmFlashOff; CameraComponent1.Active := True; end; procedure TCameraComponentForm.CameraComponent1SampleBufferReady( Sender: TObject; const ATime: Int64); begin CameraComponent1.SampleBufferToBitmap(Image1.Bitmap, True); Image1.Width := Image1.Bitmap.Width; Image1.Height := Image1.Bitmap.Height; end; 权限设置正确。

有没有人做过或没有人知道使用Delphi / Prism开发Android操作系统的方法?

是否有可能使用delphi语言(或棱镜,如果绝对必要的话)来开发Android平台的程序? 任何出发点?

如何在Delphi-XE5 Firemonkey应用程序中closuresandroid应用程序?

我有这段代码 procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var msg: String; begin msg := 'Do you really want to exit?'; if MessageDlg(msg, TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0) = mrNo then CanClose := False else CanClose := True; { FIXME: don't want to work on Android } end; 它在Windows上完美工作。 如果我select“是”,应用程序将closures。 但是,应用程序不会在Android上closures。 我做错了什么?

Delphi Firemonkey同时从图库中select多个图片

我需要在我的Android应用程序中创build一个function,允许用户打开手机图库,一次select多个图片,然后将选定的图片保存在我的本地数据库中。 我需要的是使用Android Intent来获取所选图片(文件名和path)的方式。 希望你能理解我的问题。 我正在使用这个代码: if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService, IInterface(ImageService)) then begin Params.RequiredResolution := TSize.Create(640, 640); Params.OnDidFinishTaking := DoDidFinish; ImageService.TakeImageFromLibrary(SpeedButton2, Params); end; procedure TfGallery.DoDidFinish(Image: TBitmap); begin Image1.Bitmap.Assign(Image); end; 不幸的是,这个代码可以从图库中一次返回一个图像。 编辑 – 根据Nick Cardoso的回答,以下代码适用于问题的第一部分: Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_PICK); intent.setType(StringToJString('image/*')); intent.setAction(TjIntent.JavaClass.ACTION_GET_CONTENT); Intent.putExtra(TJIntent.JavaClass.EXTRA_ALLOW_MULTIPLE,true); LaunchActivity(Intent); 上面的代码可以select多个图片。 现在我坚持find一个解决scheme(在callback函数中)在Delphi中选定的文件!

如何删除listview的search框中的清除button?

我想要在ListView的 search 框中dynamic地添加一个TEditButton ,所以我这样做了: ListView := TListView.Create(Self); ListView.Parent := Self; ListView.Name := 'hello'; ListView.Height := 369; ListView.Width := 369; ListView.Align := TAlignLayout.Bottom; ListView.SearchVisible := True; ListView.BeginUpdate; for i := 0 to ListView.controls.Count – 1 do begin if ListView.controls[i].ClassType = TSearchBox then begin SearchBox := TSearchBox(ListView.controls[i]); end; end; OKbtn := TEditButton.Create(SearchBox); OKbtn.Parent := SearchBox; OKbtn.Text := […]

Embarcadero XE5中的Android NFC

试图让Embarcadero XE5在NFC上工作。 开始以下: https : //forums.embarcadero.com/thread.jspa?threadID=97574这似乎是工作。 现在想为NFC意图注册callback Java方法: 1. Register current activity as a listener … 2. Receive Intent @Override protected void onNewIntent(Intent intent) { if (NfcAdapter.ACTION_NDEF_DISCOVERED.equals(intent.getAction())) { NdefMessage[] msgs = NfcUtils.getNdefMessages(intent); } } 资料来源: http : //www.jessechen.net/blog/how-to-nfc-on-the-android-platform/ delphi的方法(我会想象): 1. Define methods available in Java interface 来源: https : //forums.embarcadero.com/thread.jspa?messageID = 634212 Question: How do […]

如何使用Delphi创buildAndroid应用程序

我被要求研究如何使用Delphi制作一个Android应用程序,现在我不确定这可以做到。 我还没有遇到过相同的教程。 有人请澄清这个问题。

如何在Android中使用Delphi XE5发送短信

有人知道如何使这个工作? 我得到的最接近的是下面的代码,但没有成功。 起初,当它告诉你需要SEND_SMS权限时,它给你一些希望。 但是,设置此权限后,没有任何反应! uses Androidapi.JNI.JavaTypes; procedure TForm1.Button1Click(Sender: TObject); var smsManager: JSmsManager; smsTo, smsFrom: JString; begin smsManager:= TJSmsManager.JavaClass.getDefault; smsTo:= StringToJString('552199999999'); //replace with the right destination number smsFrom:= StringToJString('552499999999'); //replace with the right originator number smsManager.sendTextMessage(smsTo, smsFrom, StringToJString(Edit1.Text), nil, nil); end;

Delphi XE5中的Google Cloud Messaging?

我有一个Android应用程序,我正在考虑移植到Delphi,但我看不到一种方式来与GCM接口。 我想我可能需要在java中运行GCMBaseIntentService并与delphi共享对象接口? 或者,我正在寻找一种方法来在Delphi Xe5 android应用程序中执行推送通知。