Thema: FileListBox

Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.757 Beiträge
 
Delphi 10.4 Sydney
 
#8

Re: FileListBox

  Alt 8. Feb 2007, 10:44
Zitat von fuknersascha:
Also wenn ich auf der ersten Form die FileListBox durschlaufen lasse, läuft sie ohne Probleme durch und die Bilder werden nacheinander in das Image geladen.

Wenn ich jetzt auf die andere Form wechsel auf der die ander FilelistBox ist bekomme ich einen Fehler und zwar

Klasse EInOutError 'datei nicht gefunden'
Hallo Sascha,

vielleicht solltest Du, wenn du die Bilder oder Dokumente lädtst, den Pfad mit einbauen
wo die Bilder und Dokumente liegen.

Image1.Picture.LoadFromFile(FileListBox1.FileName); Wenn Du die Dokumente startest wird das current working directory auf das gelegt wo die Dokumente liegen.
Startest Du nun die Anzeige der Bilder, werden die Bilder bei den Dokumenten gesucht.

Image1.Picture.LoadFromFile(ExtractFilePath(ParamStr(0))+'Bilderverzeichnis\'+FileListBox1.FileName); und ähnlich auch bei den RTF dokumenten.

Und wenn Du die Bilder nicht zweimal laden willst, sollte auch das gehen:

Delphi-Quellcode:
if (bild = '.jpg') then
  begin
    Image1.Picture.RegisterFileFormat('jpg', 'Jpeg', TjpegImage);
    Image1.Picture.LoadFromFile(FileListBox1.Filename);
    Form3.Image1.Picture.Assign(Image1.Picture)
  end;
Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat