Einzelnen Beitrag anzeigen

knaeuel

Registriert seit: 2. Jul 2007
110 Beiträge
 
Delphi 10.3 Rio
 
#1

Bild in galerie ablegen (iOS, Android)

  Alt 2. Jul 2018, 14:36
Hallo zusammen,

ich suche seit einigen Wochen nach einer Lösung für dieses Problem und habe für iOS noch nichts funktionierendes gefunden.

Ich möchte ein Bild (Format recht frei wählbar, png, jpg, …, notfalls auch bmp) aus meiner App heraus in der Galerie oder in einer Art Benutzerdaten-Ordner speichern.

Unter Android habe ich zumindest schon eine funktionierende Lösung. Für iOS hab ich noch nichts zum Laufen gebracht.

Delphi-Quellcode:
procedure TFormX.BildInGalerieSpeichern;
var photolib:IFMXPhotoLibrary;
    mybmp:TBitmap;
    bmpname:string;
begin
  {$IFDEF ANDROID}
    if TPlatformServices.Current.SupportsPlatformService(IFMXPhotoLibrary) then
    begin
      //Zugriff auf Galerie ergattern:
      photolib:=TPlatformServices.Current.GetPlatformService(IFMXPhotoLibrary) as IFMXPhotoLibrary;
      //Bitmap erzeugen
      mybmp := Chart1.TeeCreateBitmap(clWhite,Rect(0,0,ceil(Chart1.Width),ceil(Chart1.Height)));
      //Bitmap in Galerie pflanzen
      photolib.AddImageToSavedPhotosAlbum(mybmp);
      //Bitmap freigeben
      mybmp.Free;
    end;
  {$ENDIF}
end;
Hat jemand eine Lösung für iOS? Ich will nur irgendwo speichern können, so dass der Benutzer anschließend ohne die App auf das Bild zugreifen kann. Wo genau ist mir im Grunde fast egal, nur auf dem Gerät selber sollte es schon sein (also nicht in der Cloud).


Danke schon vorab!
Wolfgang
  Mit Zitat antworten Zitat