Перейти к содержанию
Fire Monkey от А до Я

Satellite

Пользователи
  • Постов

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

  • Посещение

  • Победитель дней

    2

Ответы сообщества

  1. Пост Satellite - сообщение в [Android] При попытке отправить письмо через стандартное приложение, не передаётся EXTRA_EMAIL (Intent) был отмечен как ответ   
    Разобрался, в общем только так передаётся нормально:
    procedure TfmSettings.CreateEmail(Const Recipient, Subject: string); var Intent: JIntent; JRecipient: TJavaObjectArray<JString>; begin JRecipient := TJavaObjectArray<JString>.Create(1); JRecipient.Items[0] := StringToJString(Recipient); Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_SEND); Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK); Intent.putExtra(TJIntent.JavaClass.EXTRA_EMAIL, JRecipient); Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(Subject)); Intent.setType(StringToJString('vnd.android.cursor.dir/email')); SharedActivity.startActivity(Intent); end;
  2. Пост Satellite - сообщение в Генерация рандомных букв. Android. Delphi XE7. был отмечен как ответ   
    Странно, но только вот так нормально работает на Android, чудеса.
    Result:=copy(cl, random(length(cl)),1);
×
×
  • Создать...