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
