AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Cross-Platform-Entwicklung Mail mit Anhang versenden und auf Ende des Versands warten
Thema durchsuchen
Ansicht
Themen-Optionen

Mail mit Anhang versenden und auf Ende des Versands warten

Ein Thema von sko1 · begonnen am 4. Apr 2017 · letzter Beitrag vom 5. Apr 2017
Antwort Antwort
sko1

Registriert seit: 27. Jan 2017
601 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#1

Mail mit Anhang versenden und auf Ende des Versands warten

  Alt 4. Apr 2017, 10:47
Hallo,

in einer Android-App möchte ich eine Mail mit Anhang per Intent versenden.
Das funktioniert, aber nach Versand der Mail möchte ich die Datei die als Anhang versendet wurde, löschen.
Leider wartet das Hauptprogramm nach StartActivity nicht und die wenigen Beispiele die ich zu StartActivityForResult bringen mich nicht wirklich weiter!

Hat jemand bitte einen Codeschnipsel der mir weiterhelfen könnte?

Ciao
Stefan
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.116 Beiträge
 
Delphi 12 Athens
 
#2

AW: Mail mit Anhang versenden und auf Ende des Versands warten

  Alt 4. Apr 2017, 12:23
Dies hast du auch schon gecheckt ?

Delphi-Quellcode:
 function LaunchActivityForResult(const Intent: JIntent; RequestCode: Integer): Boolean;
var
  ResolveInfo: JResolveInfo;
begin
  ResolveInfo := SharedActivity.getPackageManager.resolveActivity(Intent, 0);
  Result := ResolveInfo <> nil;
  if Result then
    SharedActivity.startActivityForResult(Intent, RequestCode);
end;

//For more info see https://github.com/zxing/zxing/wiki/Scanning-Via-Intent
procedure LaunchQRScanner(RequestCode: Integer);
var
  Intent: JIntent;
begin
  Intent := TJIntent.JavaClass.init(StringToJString('com.google.zxing.client.android.SCAN'));
  Intent.setPackage(StringToJString('com.google.zxing.client.android'));
  // If you want to target QR codes
  //Intent.putExtra(StringToJString('SCAN_MODE'), StringToJString('QR_CODE_MODE'));
  if not LaunchActivityForResult(Intent, RequestCode) then
    Toast('Cannot display QR scanner', ShortToast);
end;
Rollo
  Mit Zitat antworten Zitat
sko1

Registriert seit: 27. Jan 2017
601 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#3

AW: Mail mit Anhang versenden und auf Ende des Versands warten

  Alt 5. Apr 2017, 08:24
Ja, das war einer der ersten Treffer die ich gefunden hatte, aber irgendwie fehlt mir das Verständnis, wie die externe App (hier das Mailprogramm) in meiner App einen Event auslösen kann der sagt "ich bin fertig, kannst die Anhangsdatei löschen"

Ciao
Stefan
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:57 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz