Anzeigen von Bilder auf mobile

[Juergo]

Hallo Forum,

ich versuche mich gerade etwas in Delphi einzuarbeiten.
Ich möchte mir ersteinmal nur ein auf dem mobile gespeichertes Bild anzeigen zu lassen.
Leider habe ich bis jetzt kein Erfolg.


Habe unter Ressouren und Bilder eingetragen:
Dateiname Bild1.bmp Typ BITMAP Bezeichner Bild1
Unter Bereitstellung:
Lokaler Pfad c:\tmp\ Lokaler Name Bild1.bmp Typt Projectile Konfiguration Debug Plattform Android
Remote-Pfad .\assets\internal\ Remote Name Bild1.bmp Remote Status Nicht verbunden Übrschreiben immer
(Remote Status nicht verbunden ??)

Ausschnitt Unit oben:
#######################
type
TForm3 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure ShowBild();
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
############################

##########meine Procedure###########
procedure TForm3.ShowBild();
var
Bild : FMX.Graphics.TBitmap;
begin

Bild := FMX.Graphics.TBitmap.Create;
Bild.LoadFromFile(System.IOUtils.TPath.GetDocument sPath + PathDelim + 'Bild1' );
Image1.Bitmap.Assign(Bild);
Bild.Free;

end;

Fehlermeldung auf mobile:
Laden des Bitmaps fehlgeschlagen(/data/user/0/com.embarcadero.Bildprg/files/Bild1).

Irgendwie wird die Bitmap nicht auf mein Handy übertragen.
Der Pfad auf dem das Bild gesucht wird, gibt es auch nicht auf meinem Handy.


Ich hoffe auf Tips und Hilfe.

Juergo

[zeras]

Wenn du ein Bild im Projekt unter Ressourcen eingebunden hast, dann kannst du das nicht mit Loadfromfile laden. Das Bild steckt ja in deinem Projekt und nicht im Filesystem als Datei.
Ich habe ein MP3 File so ins Filesystem abgelegt und dann kannst du damit arbeiten.

Delphi-Quellcode:

Function CopyStream2File(ResourceID: string; var fName: String): boolean;
var
  ResStream: TResourceStream;


begin
  Result := False;

  try

    ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);

    try

      //MP3 File aus Resource laden und in Filesystem ablegen
      fName := TPath.Combine(TPath.GetTempPath, 'tmp.mp3');
      ResStream.Position := 0;
      ResStream.SaveToFile(fName);
      Result := True;
    finally
      ResStream.Free;
    end;
  except

  end;
end;