Suche Debug für ItemView

[RedShakal]

Hallo, ich schonwieder. Ich suche einen kleinen Debug für meine Listview. Diese Läd per knopfdrück Datensätze von einer Webseite herunter und trägt diese entsprechend ein.

Folgende Probleme tretten hierbei auf:

* Hin und wieder macht die zeile Minimap.Picture.Assign(PNG); ärger mit einer Fehlermeldung bezüglich irgenteines
Grafikheaders.

Project Client.exe raised exception class EPngInvalidCRC with message 'This "Portable Network Graphics" image is not valid because it contains invalid pieces of data (crc error)'.


* Wenn ich auf Update klicke kommt ab und zu: Access violation at address 00403077 in module 'Client.exe'. Read of address 7FDD2680.




Hier ein paar Datensätze:

Die Update schleife:

Delphi-Quellcode:

procedure TForm8.Update1Click(Sender: TObject);
var
  Mapliste  : string;
  StrArr    : TDynStringArray;
  LI        : TListItem;
  i         : Integer;
  Anzahl    : String;
  Index     : Integer;
begin
  Install := 0;
  Maplist.Clear;
  Anzahl := Downloadstatus.Get('http://www.redshakal.de/kknd/login/maplist/anzahl.php');
  Mapliste := Downloadstatus.Get('http://www.redshakal.de/kknd/login/maplist/maps.php');

  if Length(Mapliste) > 0 then
    begin
      StrArr := Explode('|', Mapliste);
    end;

  For i := 0 to StrToInt(Anzahl)-1 do
    begin
      LI:= Maplist.Items.Add;
      LI.Caption:= StrArr[i*3];
      LI.SubItems.Add(StrArr[i*3+1]);
      LI.SubItems.Add(StrArr[i*3+2]);
      if FileExists(Pfad+'\LEVELS\Multi\'+StrArr[i*3]+'.mim') then
        begin
          LI.SubItems.Add('installiert');
          Install := Install+1;
        end;
    end;

  if Install <= 20 then
    begin
      Label1.Font.Color := clgreen;
      Label1.Caption := 'Anzahl installierter Maps: '+InttoStr(Install);
    end
  else
    begin
      Label1.Font.Color := clred;
      Label1.Caption := 'Anzahl installierter Maps: '+InttoStr(Install);
    end;
end;

Die Schleife, die aufgerufen wird, wenn man einen Eintrag anklickt. Es wird ein kleines Minimap Bild geladen.

Delphi-Quellcode:

procedure TForm8.MaplistSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
var
  PNG     : TPNGImage;
  Stream  : TMemoryStream;
begin
  if Maplist.Selected <> nil then
    begin
      if MMState <> 1 then
        begin
          MMState := 1;
          Stream := TMemoryStream.Create;
          Downloadstatus.Get('http://redshakal.de/kknd/maps/minimap/'+Maplist.Selected.Caption+'.png', Stream);
          Stream.Position := 0;
          PNG := TPNGImage.Create;
          PNG.LoadFromStream(Stream);
          Minimap.Picture.Assign(PNG);
          PNG.Free;
          Stream.free;
        end;
    end
  else
    begin
      Exit;
    end;
end;

Theoretisch sind die ganzen Updates eigentlich garnicht notwendig. Allerdings weiß ich nicht wie ich einer ListView nachträglich Werte hinzufüge. Es geht mir im Prinzip nur darum das in der 4ten Spalte meiner Listview das Wort "installiert" erscheint wenn die Map vorhanden ist / bzw nach erfolgreichem Download.


Ich hoffe ihr könnt mir helfen den einen oder anderen Fehler zu finden