Rionn

Пользователи
  • Публикации

    21
  • Зарегистрирован

  • Посещение

  1. Да, до обновления на android 7 отправлялись письма без почтового интерфейса, а можно тогда все-таки оставить indy компоненты, но тогда с открытием интерфейса почты?
  2. Для отправки писем на почту.
  3. Библиотеки для android 7.
  4. А как скоро появятся?
  5. Где можно скачать OpenSSL для Android 7.0?
  6. Интересует такой вопрос: я работаю на компьютере и подключил к этому компьютеру android устройство, потом, через программу удаленного доступа я заходу на другой компьютер, где стоит delphi. Вопрос таков, что можно использовать для того, чтобы удаленный компьютер также опознал usb устройство, которое подключено к "реальному" пк, чтобы при приложение установилось на телефон?
  7. Спасибо большое за ответ. А ещё такой вопрос, я все-таки написал условие для определения номера, но если условие не выполняется, то нужно, чтобы программа ничего не делала. Тоесть в else мне нужно что-то написать, потому что при отсутствии else программа просто ввлетает и не работает.
  8. Все переделал по вашему кода, однако ничего не работает.
  9. Всё понял, добавил: procedure BroadcastReceiverOnReceive(csContext: JContext; csIntent: JIntent); и procedure TForm1.BroadcastReceiverOnReceive(csContext: JContext; csIntent: JIntent); begin CheckPhoneCallState(csContext, csIntent); end; И после этого программа может заработать?
  10. У меня описана процедура CheckPhoneCallState Но какой метод ещё нужен и куда его?
  11. Строчка закомментирована, так как она подчеркнута красным.
  12. Поставил 10000. Ничего не поменялось
  13. unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, CSBroadcastReceiver,Androidapi.Jni, AndroidApi.JNI.GraphicsContentViewText, Androidapi.Jni.JavaTypes, Androidapi.JNI.Os, Androidapi.JNIBridge, Androidapi.JNI.Telephony, FMX.Controls.Presentation, FMX.ScrollBox, FMX.Memo, FMX.StdCtrls; type TForm1 = class(TForm) private { Private declarations } procedure CreateBroadcastReceiver; procedure CheckPhoneCallState(Context: JContext; Intent: JIntent); public { Public declarations } end; var Form1: TForm1; BroadcastReceiver: TCSBroadcastReceiver; implementation uses Androidapi.Jni.App, Androidapi.Helpers, Androidapi.Log, FMX.Helpers.Android; {$R *.fmx} procedure TForm1.CreateBroadcastReceiver; begin if not Assigned(BroadcastReceiver) then begin BroadcastReceiver:= TCSBroadcastReceiver.Create(nil); //BroadcastReceiver.OnReceive:= BroadcastReceiverOnReceive; BroadcastReceiver.RegisterReceive; BroadcastReceiver.Add('android.intent.action.PHONE_STATE'); BroadcastReceiver.Add('android.intent.action.READ_PHONE_STATE'); end; end; procedure TForm1.CheckPhoneCallState(Context: JContext; Intent: JIntent); var telephonyService: JObject; telephonyManager: JTelephonyManager; state: JString; incomingCallNumber: string; outputResult: string; VibratorObj: JObject; Vibrator: JVibrator; begin outputResult:= #13#10; telephonyService := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); telephonyManager := TJTelephonyManager.Wrap((telephonyService as ILocalObject).GetObjectID); if JStringToString(Intent.getAction).Equals('android.intent.action.READ_PHONE_STATE') then begin if incomingCallNumber = 'номер телефона' then VibratorObj := SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE); Vibrator := TJVibrator.Wrap((VibratorObj as ILocalObject).GetObjectID); Vibrator.vibrate(10); end; end; end. Суть программы такого, что когда звонит определенный номер на телефон, то включается вибрация. Но что-то не включается.. Кто может что подсказать?