Datein zur Laufzeit laden

[XXcD]

Hallo,

ich habe ein Problem Datein in iOS zur Laufzeit zu laden.
Habe das ganze mit einem Bitmap und Testweise auch mit einer Textdatei probiert.

Delphi-Quellcode:

      image:=fmx.graphics.tbitmap.CreateFromFile(TPath.GetHomePath+'/Horizon_Background.bmp');
      try
      PaintBox1.Canvas.DrawBitmap(image, RectF(0,0,image.Width,image.Height), RectF(0,0,image.Width,image.Height), 255);
      finally
       image.Free;
      end;

Und die Textdatei:
      Memo1.Lines.Loadfromfile(TPath.GetHomePath+'/test.txt'); Ich bekomme beim Laden immer eine Fehlermeldung.
-Fehler beim Laden des Bitmaps
-...test.txt is no such file or directory

Weiß jemand wie man in Firemonkey die Datein laden kann?

[himitsu]

Pfade verbinden besser so TPath.Combine(TPath.GetHomePath, 'test.txt')
Das achtet auf den "richtigen" Path-Delimiter und ob am "HomePath" schon ein / oder \ dran hängt.

"eigentlich" war es im Delphi mal so, dass xxxDir keinen abschließenden Delimiter besitzt und xxxPath besitzt einen, aber Boland/CodeGear/Embarcadero haben da manchmal bissl "Mist" gebaut und ihre eigenen Pläne nicht richtig durchgesetzt.

Und hat dein Programm auch Zugriff auf das HomePath-Verzeichnis?

[XXcD]

Ich habe das schon mit TPath.Combine(TPath.GetHomePath, 'test.txt') probiert, half leider auch nicht.

Falls ich wirklich kein Zugriff auf mein Home Verzeichnis haben sollte, wie kann ich das denn ändern?
Habs auch schon mit TPath.GetDocumentsPath und die Datein in StartUp/Documents kopiert, funktioniert aber auch nicht.

[Rollo62]

Bist du sicher das es wirklich da ist FileExists(...) ?

Rollo

[XXcD]

Ja ich bin mir sicher, dass die Datei da ist.

Konnte jetzt eine Textdatei laden die sich im Documents Ordner befindet.
Leider lassen sich aber immer noch keine Bitmaps von da laden.

Die Datein habe ich überigens mit dem Bereitstellungsassistenten der Anwendung hinzugefügt.

[Rollo62]

Versuchs mal damit:

Delphi-Quellcode:

function  Bmp_LoadFromStream( const aStrm          : TStream;
                              var    bmp           : TBitmap;
                              const sExt           : String) : Int64;
var
  aBCM: TBitmapCodecManager;
  aBMS: TBitmapSurface;

begin
    Result := 0;

    if not Assigned(aStrm) or not Assigned(bmp) then
      Exit;

    aBCM     := TBitmapCodecManager.Create;
    aBMS     := TBitmapSurface.Create;

    try

      begin  

          if aBCM.LoadFromStream( aStrm,    aBMS ) then // This is no more reches
          begin
            Result := aStrm.Size; // the Operation was OK so far
          end else
          begin
            Result := 0; // the Operation was NOT OK
          end;

      end;

      if Result > 0 then
      begin  // Copy was OK, so do Assign
        bmp.Assign( aBMS );
      end;

    finally
      aBMS.Free;
      aBCM.Free;
    end;

end;