TnTImage -> Welche Bildformate unterstützt?

[DualCoreCpu]

Zitat von nahpets:

Mir würde eigentlich erstmal die Fehlermeldung reichen, die Du bekommst, wenn Du das Programm einfach mal so startest, egal, ob die nun detailreich ist oder nicht. Nur das, was auch der Anwender zu sehen bekommen würde, wenn er das Programm startet und dann der Fehler auftritt.

Erste Gelegenheit für Exception bei $75C0A9F2. Exception-Klasse EInvalidGraphic mit Meldung 'Unbekannte Bilddateierweiterung (.)'. Prozess imgdrag.exe (924)

Dies, nachdem ich den Quelltextabschnitt meines ersten Post wie folgt geändert habe:

Delphi-Quellcode:

    [B]if not Assigned(Image) then Image := TImage.Create(self);
[/B]   
//So bleibt die vorherige EAccessViolation fern.
//Hatte vorausgesetzt, dass eine Komponente, die auf das Formular 
//geklickt wurde, auch automatisch erzeugt wird
//Die Fehlermeldung sagt da nur "Lesen von Adresse .... "
    FFileName := String(Dateiname);
    Image.Picture.LoadFromFile(FFileName);
//In der darunter stehenden Zeile kommt nun die oben genannte Exception
    FFileList.AddObject(StrPas(Dateiname),Image);
//---------------------------------------------------------------------
    Memo.Lines.Add(FFileList.Strings[FFileList.Count-1]);

    PictureList.Items.Item[PictureList.Items.Count-1].assign(Image);
    //PictureList.Items.Item[PictureList.Items.Count-1].Data := Item.Data;

sonstiger Quellcode, siehe oben, erster Post!

Ich dachte, die Image-Komponente unterstütze ALLE Bildformate. Die Exception kommt auch bei .bmp Dateien. Habe zum Test eine .bmp Datei verwendet, von der ein in .jpg umgewandeltes Pendant existiert. Habe alles auf die Verwendung ausschließlich der Image Komponente zurück geändert.

Die Unit jpeg ist eingebunden.

[nahpets]

In der Fehlermeldung steht

Code:

'Unbekannte Bilddateierweiterung (.)'

Hier würde ich zuerst einmal den Dateinamen überprüfen, es scheint so, als könnte die Dateiendung, die zur Erkennung des Bildtypes herangezogen wird, nicht korrekt erkannt werden.

Eine Komponente, die man in der IDE auf ein Formular pappt, wird automatisch erstellt.

Wenn Image eine derartige Komponente ist, sollte diese Abfrage nicht erforderlich sein.

if not Assigned(Image) then Image := TImage.Create(self);

Wenn aber doch, so wird die Komponente auf dem Formular irgendwo (irrtümlich?) freigegeben.

Aus dem bisher bekannten Quelltext lässt sich das aber nicht erkennen.

Schau bitte zuerst mal nach, was hier FFileName := String(Dateiname); herauskommt. Ist das ein gültiger Dateiname mit vollständigem Pfad und Dateiendung?

[DualCoreCpu]

Danke @nahpets, Der Dateiname war die Ursache der Exception.

Ein Teilproblem ist somit gelöst!

Ein Fall für DUnit! Das aber wird ein gesonderter Strang.

Nun aber macht diese Zeile Schwierigkeiten. Warum das nun wieder?

PictureList.Items.Item[PictureList.Items.Count-1].assign(Image); Diese Zeile bringt dieselbe Exception:

EAccessViolation -> Zugriffsverletzung bei Adresse ...

PictureList.Items.Item[PictureList.Items.Count-1].Data := Image.Picture Wie also muss ich das Bild zuweisen?

Picturelist ist meine TListView.

[nahpets]

Erste Frage: Gibt es das? PictureList.Items.Item[PictureList.Items.Count-1] Vor der Zuweisung prüfen, ob PictureList.Items.Count größer 0 ist.

[DualCoreCpu]

Zitat von nahpets:

Erste Frage: Gibt es das? PictureList.Items.Item[PictureList.Items.Count-1] Vor der Zuweisung prüfen, ob PictureList.Items.Count größer 0 ist.

Ok, danke. War nicht größer als 0.

Wenn ich aber stattdessen den Index auf PictureList.Items.Count setze, erhalte ich die gleiche Exception. Warum das, Ich sollte doch an das Nullte Element zuweisen können.

Habe außerdem folgendes getestet:


PictureList.Items.Item.assign(Image.Picture.bitmap); Hier wird der Index wird jedoch vom Compiler verlangt

    PictureList.Items.assign(Image.Picture.bitmap); Hier wird eine EConvertError-Exception geworfen. Meldung:

TBitmap kann nicht zu TlistItems zugewiesen werden

Wie kriege ich denn da ein Bild in die ListView???

[haentschman]

Hallöle...
Ich zeige dir mal ein Beispiel wie ich Icons in die Liste bekomme. Du mußt es auf deine Gegebenheiten anpassen.
1. das SubItem muß bestehen auch wenn es leer = '' ist
2. Im CustomDrawSubItem zeichnest du es.
Hinweis: Um die Freigabe des Images mußt du dich eventuell selbst kümmern. (OnDeletion)

Delphi-Quellcode:

procedure TfrPreferences.ShowList(aList: TListEmployee);
var
  Item: TListItem;
  Employee: TEmployee;
  LastIndex: Integer;
begin
  lvEmployees.BeginUpdate;
  try
    lvEmployees.Items.Clear;
    for Employee in aList do
    begin
      if Employee.State <> ddsDeleted then
      begin
        Item := lvEmployees.Items.Add;
        Item.Data := Employee;
        Item.SubItems.Add(Employee.Name);
        Item.SubItems.Add(Employee.FirstName);
        Item.SubItems.Add(Employee.PersonalNumber);
        Item.SubItems.Add(IntToStr(Integer(Employee.Active))); 
        Item.ImageIndex := dmSmall.GetIconDataState(Employee.State); // Standard Image der ersten Spalte
      end;
    end;
  finally
    lvEmployees.Sort;
    lvEmployees.EndUpdate;
  end;
end;

procedure TfrPreferences.lvEmployeesCustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  aRect: TRect;
  aIcon: TIcon;
begin
  if SubItem > 3 then
  begin
    aIcon := TIcon.Create;
    try
      DefaultDraw := False;
      ListView_GetSubItemRect(Sender.Handle, Item.Index, SubItem, LVIR_BOUNDS, @aRect);
      case SubItem of // 4.SubItem
        4:
          begin
            dmCommon.GetIconActive(TEmployee(Item.Data).Active, aIcon); // Laden Icon => aIcon hält das Bild
          end;
      end;
      Sender.Canvas.Draw(aRect.Left + ((aRect.Right - aRect.Left - aIcon.Width) div 2), aRect.Top, aIcon); // anzeigen
    finally
      aIcon.Free;
    end;
  end;
end;

[DualCoreCpu]

Danke, @haentschman, ich werde mich damit auseinandersetzen und melde mich dann wieder. Hoffentlich mit einer Erfolgsmeldung.

Vielleicht ergeben sich ja auch Fragen zu diesem Quelltext.

[DualCoreCpu]

Danke @nahpets und @haentschman wie verrückt. So funktioniert das nun so wie ich es haben wollte.

[DualCoreCpu]

Moderatoren: Bitte Beitrag #17 löschen! Doppelposting + nicht alle Helfer zum Dank angesprochen!