Mehrere Bilder aus einer ListBox speichern!

[ünneb]

Hallo,
und zwar hät ich da mal eine Frage. Ich programmier gerade mit ein Kumpel im Informatikunterricht ein Programm zur Bildbearbeitung. Unser Problem ist gerade, wir lesen mehrere Bilder in unser Programm ein, diese werden dann in einer ListBox angezeigt. Ich kann über die ListBox auf alle eingelesene Bilder Bild zugreifen, d.h. wenn ich ein Bild anklicke, dann zeigt es mir dieses in meiner TImage an. So, wenn wir jetzt alle Bild bearbeitet haben, wollen wir diese auf einmal speichern, nicht in einer Datei, sondern eben in einzelne! Wir haben jetzt überall mal geguckt und prbiert, sind aber noch nicht so recht weiter! Wäre nett, wenn uns einer weiterhelfen könnte!

Lg Benni

[mkinzler]

Schau dir mal TImageList an

[ünneb]

Hm,geht das mit einer TImageList? Wir haben die im Unterricht eigentlich nur benutzt um mehrere Bilder einzulesen und diese dann in unser Programm eingefügt! Bei TImageList, kann ich doch eigentlich nur Bilder vorher reinladen, ich kann doch mit mein Programm nicht weiter den Inhalt der Liste ändern,oder?
Nja, wir lesen die Bilder über ein extra Button in ListBox ein. Und diese wollen wir dann aus der Liste wieder als JPG speichern, eben nicht alles einzeln, sonder alle gleich auf einmal!

[mkinzler]

Dann musst du halt in einer Schleife durch die Pfade der Liste iterieren

[ünneb]

öhm,sorry komm ich nicht hinterher! Unser Wissensstand bzgl. Delphi und Programmieren reduziert sich auf den Informatikunterricht der Klasse 11 und 12! Kannst du mir vlt. ein Hinweis geben wie ich das anstellen kann? Bitte.

[mkinzler]

Worin werden die Bilder denn gespeichert?

[ünneb]

In einem TImage.

[mkinzler]

Das kann aber nur ein Bild aufnehmen und nicht mehrere

[ünneb]

Naja, also wir haben das so gemacht, dass wir mehrere Bilder öffnen in dem wir die in einer ListBox zwischenspeichern. Und wenn wir dann auf z.bsp. auf das 2te Bild klicken, dann wird das im TImage angezeigt.
so,dass ist Quelltext zum öffnen der Bilder und dann zum einlesen in die ListBox:

Delphi-Quellcode:

//Öffnen bei Projekt
procedure TForm1.ffnen2Click(Sender: TObject);
var jpg    : TJPEGImage;
    filename : string;
begin
  if OpenPictureDialog1.Execute then
  begin
    filename := OpenPictureDialog1.FileName;
    jpg := TJPEGImage.Create;
    jpg.LoadFromFile(filename);
    Image1.Picture.Graphic := jpg;
    FreeAndNil(jpg);
    Panel1.Caption:=ExtractFilename(filename);
    Panel2.Caption:= filename; //Dateipfad ausgeben
    Listbox1.Items.AddStrings(OpenPictureDialog1.Files);
  end;

end;
{------------------------------------------------------------------------------}
//Auswählen von einem Bild in ListBox und ausgabe in TImage
procedure TForm1.ListBox1Click(Sender: TObject);
var jpg    : TJPEGImage;
    filename : string;
begin
  filename:=ListBox1.Items[ListBox1.ItemIndex];
  jpg := TJPEGImage.Create;
  jpg.loadfromfile(filename);
  Image1.Picture.Graphic := jpg;
  FreeAndNil(jpg);
  Panel1.Caption:=ExtractFilename(filename);
  Panel2.Caption:= filename;
end;

Vielleicht hilft dir das ja weiter?!...

[mkinzler]

Das ganze hat nur das Problem, dass nur die Pfade der Bilder gespeichert werden!