Hallo,
ich möchte alle Datein, die mit ihrem Pfad in einer ListBox eingetragen sind zum einen in einer Image Komponente darstellen (es handelt sich ausschließlich um Bilddatein) und anschließend per
FTP hochladen.
Der Upload klappt ohne Probleme, aber in der Image Komponente wird erst am ende das letzte Bild angezeigt.
Woran kann das liegen?
Hier mal der entsprechende Code:
Delphi-Quellcode:
for i := 0 to anz do begin
JpegToBMP(Listbox1.Items.Strings[i], Image1.Picture.Bitmap);
//Image1.Picture.LoadFromFile(Listbox1.Items.Strings[i]);
IdFTP1.Put(Listbox1.Items.Strings[i],ExtractFileName(Listbox1.Items.Strings[i]));
end;
JpegToBMP ist eine procedure die wie der Name schon sagt ein Jpeg Bild in eine BMP Datei umwandelt um sie in der Image Komponente darstellen zu lassen.
Gruß
Thomas