Bilder speichern

[masterzibu]

OK Danke, das weiss ich nun.

Aber wie sieht das mit einem Ordner erzeugen auf einem Android Smartphone aus. Wie funktioniert das, dass ich dort meine Handykamerabilder ablegen kann, sehe da überhaupt nicht durch...

grüsse

[mjustin]

Basierend auf dieser SO Antwort:
ImageContainer.Bitmap.SaveToFile(System.IOUtils.TPath.GetDocumentsPath + System.SysUtils.PathDelim + 'myfile.jpg');
(Bin gerade selber mit der Android Kamera beschäftigt - allerdings in Java, hoffe dass der Tipp weiterhilft)

[himitsu]

Es gibt übrigens auch TPath.Combine, um Pfade und Dateinamen zu kombinieren.

Müsste in etwa so aussehn.
ImageContainer.Bitmap.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'myfile.jpg')); Man könnte TPath.GetDocumentsPath auch mit IncludePathDelimiter aufrufen, welches den Delimiter anhängt, wenn noch keiner vorhanden ist.
Aber anhand des Namens (GetDocumentsPath und nicht Dir) müsste da bereits der Delimiter enthalten sein.

[masterzibu]

OK Danke für die Antworten, funktioniert so weit.
Und wie genau stelle ich die gespeicherten Bilder in einer Liste dar?
Und wie zeige ich dann ein ausgewähltes Bild in einem Timage?

[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.

[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