Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.03.2020, 06:28   #1
АНАТОЛИЙ249
Пользователь
 
Регистрация: 05.02.2007
Сообщений: 91
По умолчанию Отправка почты с телефона FMX Embarcodero

Пытаюсь отправить письмо с телефона ,письмо отправляется , но как ,запускается GMAIL там всё введено кому отправить от кого текст письма ,на котром нужно нажать кнопку отправить. Но мне нужно что бы письмо отправлялось без участия владельца. Может у кого есть наработки с почтой на андроид.

Код:

procedure TForm.Email(const Recipient, Subject, Content, Attachment: string);
var
  JRecipient: TJavaObjectArray<JString>;
  Intent: JIntent;
  Uri: Jnet_Uri;
  AttachmentFile: JFile;
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.putExtra(TJIntent.JavaClass.EXTRA_TEXT, StringToJString(Content));

   SharedActivity.startActivity(TJIntent.JavaClass.createChooser(Intent,
    StrToJCharSequence('Which email app?')));

end;


Может кто то то писал отправки файла с телефона на комп по интернету ? Можно без почты ,по http ftp, socet , может у кого наработки есть ?
Спасибо.

Последний раз редактировалось АНАТОЛИЙ249; 06.03.2020 в 17:21.
АНАТОЛИЙ249 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ASP.NET Отправка почты Virus191288 ASP.NET 3 24.11.2013 21:16
Отправка почты [php] Lemo PHP 5 13.08.2010 23:35
Отправка почты Gurt87 Работа с сетью в Delphi 1 24.03.2010 22:51