Bilder in Dateien speichern

Aus RAD Studio
Wechseln zu: Navigation, Suche

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
   }
 }



Siehe auch