Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Cross-Platform-Entwicklung (https://www.delphipraxis.net/91-cross-platform-entwicklung/)
-   -   Mail mit Anhang versenden und auf Ende des Versands warten (https://www.delphipraxis.net/192261-mail-mit-anhang-versenden-und-auf-ende-des-versands-warten.html)

sko1 4. Apr 2017 09:47

Mail mit Anhang versenden und auf Ende des Versands warten
 
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

Rollo62 4. Apr 2017 11:23

AW: Mail mit Anhang versenden und auf Ende des Versands warten
 
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

sko1 5. Apr 2017 07:24

AW: Mail mit Anhang versenden und auf Ende des Versands warten
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:52 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