bild mit opendialog öffnen und mit savedialog speichern

[tankm26]

MoinMoin!

Gerne würde ich nach vergeblicher Suche hier erfahren, wie man mit Hilfe eines opendialogs bilder laden kann (speichern geht zwar schon, ist aber ziemlich kompliziert gemacht).


mfg

Wieland

[marabu]

Hallo Wieland,

wenn du dir zwei Schalter (LoadButton, SaveButton) auf deine Form ziehst, dazu aus der Palette die Dialog-Komponenten OpenPictureDialog und SaveDialog, dann geht es so:

Delphi-Quellcode:

procedure TForm1.LoadButtonClick(Sender: TObject);
begin
  with OpenPictureDialog do
    if Execute then
      Image.Picture.LoadFromFile(FileName);
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
begin
  with SaveDialog do
    if Execute then
      Image.Picture.SaveToFile(FileName);
end;

Grüße vom marabu

[tankm26]

Zitat von marabu:

Hallo Wieland,

Grüße vom marabu

firma dankt.


Leider ist mein pc auch jetzt nicht zufrieden:

Die gespeicherten Bilder weiß er zunächst nicht zu öffnen. IrfanView gibt an, dass die erstellten bilddateien falsche erweiterungen besitzen würden.


Ansonsten funzt jetzt endlich alles astrein, vielen Dank!




edit: Wie kann ich denn mit Hilfe eines Buttons ein Bild aus einem festen Verzeichnis laden?

[marabu]

Du kannst das Verzeichnis vorwählen - im Code oder auch über den Object Inspector:

Delphi-Quellcode:

procedure TForm1.LoadButtonClick(Sender: TObject);
begin
  with OpenPictureDialog do
  begin
    InitialDir := 'C:\Media\Images\';
    Filter := 'Bild-Dateien|*.bmp|Alle Dateien|*.*';
    DefaultExt := 'bmp';
    if Execute then
      Image.Picture.LoadFromFile(FileName);
  end;
end;

marabu

[tankm26]

Danke!