Bilder speichern

[himitsu]

Indem du die Dateinamen einliest, sie in einer Listenkomponente darstellst?
Und beim Wechsel der Selektierung liest du den aktuell gewählten Dateinamen aus der Liste und lädst das Bild in eine Imagekomponente.


PS: Bitmap.SaveToFile(... + 'myfile.jpg'); speichert zwar das Bild in einer Datei, aber auch wenn die Datei *.jpg heißt, ist darin natürlich ein Bitmap (*.bmp), da Bitmap halt ein Bitmap ist und auch nur Bitmaps speichern kann.

[masterzibu]

OK danke,probier das mal.
Habe aber schon ein problem beim Anzeigen eines Bildes.
Speichere das Bild so:

Delphi-Quellcode:

procedure TForm6.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap);
begin
 Image1.Bitmap.Assign(Image) ;
 Image1.Bitmap.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'myfile.jpg'));
end;

Und so möchte ich es wieder Anzeigen:

Delphi-Quellcode:

procedure TForm11.Button123Click(Sender: TObject);
begin
  Image1.bitmap.LoadFromFile('myfile.jpg');
end;

Da kommt aber auf dem Smartphone die Fehlermeldung: Zugriffsverletzung bei Adresse 788526E8 beim Zugriff auf Adresse 0000000.
Was mach ich falsch?

[mkinzler]

Beim Laden sollte man genausowenig relative Pfade verwenden. Bau Dir den absoluten, entsprechend der Speicherroutine zusammen.

Btw. Bitte verwende Delphi-Tags.

[himitsu]

Da es wohl überlesen wurde:
Du speicherst Bitmaps, also sollte der Dateiname myfile.bmp heißen.

Zitat:

Was mach ich falsch?

Du hast vergessen zu sagen bei welcher Codezeile, wobei du auch gleich selber mal mit dem debugger schauen kannst, ob vor der Exception (also Halepunkt auf die Zeile, wo es knallt) eine der Variablen NIL ist.
(denn die Fehlermeldung klingt nach einem Zugriff auf einen NIL-Pointer/Objektzeiger)

Insgesamt sehen deine paar gezeigten Codezeilen erstmal nicht direkt falsch aus.

[Sir Rufo]

@himitsu

Du weisst, dass es sich um FMX handelt? Da kann TBitmap erheblich mehr.

[Olli73]

Zitat von himitsu:

PS: Bitmap.SaveToFile(... + 'myfile.jpg'); speichert zwar das Bild in einer Datei, aber auch wenn die Datei *.jpg heißt, ist darin natürlich ein Bitmap (*.bmp), da Bitmap halt ein Bitmap ist und auch nur Bitmaps speichern kann.

Zumindest Firemonkey/XE5 ist intelligenter als man denkt:

Delphi-Quellcode:

procedure TBitmap.SaveToFile(const AFileName: string; const SaveParams: PBitmapCodecSaveParams = nil);
begin
  TBitmapCodecManager.SaveToFile(AFileName, Self, SaveParams);
end;


class function TBitmapCodecManager.SaveToFile(const AFileName: string; const Bitmap: TBitmap;
  const SaveParams: PBitmapCodecSaveParams = nil): Boolean;
var
  Codec: TCustomBitmapCodec;
  Descriptor: TBitmapCodecClassDescriptor;
begin
  Result := False;
  if Assigned(FBitmapCodecClassDescriptors) then
    for Descriptor in FBitmapCodecClassDescriptors do
      if SameText(ExtractFileExt(AFileName), Descriptor.Extension, loUserLocale) and Descriptor.CanSave then
      begin
        Codec := Descriptor.BitmapCodecClass.Create;
        try
          Result := Codec.SaveToFile(AFileName, Bitmap, SaveParams);
        finally
          Codec.Free;
        end;
      end;
end;

Ich war auch (vor einiger Zeit) erstaunt, dass das so einfach geht.

Gruß,
Olli

Edit: Ich war zu lahm...

[Sir Rufo]

@Olli73

Evtl. war ich nur schneller

[himitsu]

Zitat von Sir Rufo:

@himitsu

Du weisst, dass es sich um FMX handelt? Da kann TBitmap erheblich mehr.

Sicher?
Aber warum heißt es dann TBitmap und nicht TBildirgendwas?

[Sir Rufo]

Zitat von himitsu:

Zitat von Sir Rufo:

@himitsu

Du weisst, dass es sich um FMX handelt? Da kann TBitmap erheblich mehr.

Sicher?
Aber warum heißt es dann TBitmap und nicht TBildirgendwas?

Ja, kuckst du Doku FMX.Graphics.TBitmap

[himitsu]

Na toll, in der VCL wird also doch nichts mehr weiterentwickelt.