Bilder in Dateien speichern
Nach oben zu Mit Grafiken und Multimedia arbeiten - Index
Bildobjekte können Grafiken in unterschiedlichen Formaten laden und speichern. Sie können aber auch eigene Formate für Grafikdateien erstellen und diese in Bildobjekten speichern bzw. aus diesen laden.
Um den Inhalt eines Bild-Steuerelements in einer Datei zu speichern, rufen Sie die Methode SaveToFile des Picture-Objekts im Bild-Steuerelement auf.
Die Methode SaveToFile benötigt den Namen der Datei, in der das Objekt gespeichert wird. Wenn das Bild neu erstellt wurde oder ein vorhandenes Bild unter einem neuen Namen gespeichert werden soll, muss die Anwendung vor dem Speichern einen Dateinamen vom Benutzer anfordern. Wie dies bewerkstelligt wird, zeigt das nächste Thema.
Die beiden folgenden Ereignisbehandlungsroutinen sind den Menübefehlen Datei > Speichern und Datei > Speichern unter zugeordnet. Sie verarbeiten das Speichern bereits benannter, unbenannter und existierender Dateien mit neuen Namen.
procedure TForm1.Save1Click(Sender: TObject);
begin
if CurrentFile <> '' then
Image.Picture.SaveToFile(CurrentFile) { Speichern, wenn Name bereits vorhanden }
else SaveAs1Click(Sender); { Andernfalls Namen anfordern }
end;
procedure TForm1.Saveas1Click(Sender: TObject);
begin
if SaveDialog1.Execute then { Dateinamen anfordern }
begin
CurrentFile := SaveDialog1.FileName; { Eingegebenen Namen speichern }
Save1Click(Sender); { Anschließend normal speichern }
end;
end;
void __fastcall TForm1::Save1Click(TObject *Sender)
{
if (!CurrentFile.IsEmpty())
Image->Picture->SaveToFile(CurrentFile); // Speichern, wenn Name bereits vorhanden
else SaveAs1Click(Sender); // Andernfalls Namen anfordern
}
void __fastcall TForm1::SaveAs1Click(TObject *Sender)
{
if (SaveDialog1->Execute()) // Dateinamen anfordern
{
CurrentFile = SaveDialog1->FileName; // Eingegebenen Namen speichern
Save1Click(Sender); // Anschließend normal speichern
}
}