hey dabei werde ich echt blöd..
ich hole mir nen array per
soap und fülle die werte in meinen listview.
jetzt habe ich die procedure convert image die mir die base64 bilder zurück verwandelt...
er macht das auch ohne probleme, nur nach dem letzten bekomme ich diesen oben benannten fehler.
wenn ich jetzt hier:
for i := 0 to Length(gigCarData) -1
einfach - 2 oder 3 machen bekommen ich natrülich weniger listview einträge, das komische ist jetzt aber er macht trotzdem alle bilder ???? HILFE das ist absolut unerklärlich
Delphi-Quellcode:
Procedure ConvertImage(images,filename:String);
begin
if (images <> inttostr(0)) and (images <> '') then
begin
if Base64DecodeFile(images,'c:\' + filename + '.jpg') = true then showmessage('true')
else
showmessage('false');
end;
end;
////////////////////////////////////////////////////////////////////////////////////
for i := 0 to Length(gigCarData) -1 do
begin
application.ProcessMessages;
ListItem := frmmain.lvVehicles.Items.Add;
if gigCarData[i].ID <> '' then
begin
ListItem.Caption := gigCarData[i].vid ;
ListItem.SubItems.Add(gigCarData[i].brand);
ListItem.SubItems.Add(gigCarData[i].model);
ConvertImage(gigCarData[i].picture,gigCarData[i].vid);
frmmain.lvVehicles.Items[i].Checked := true
end
else
begin
ListItem.Caption := 'Kein Eintrag';
ListItem.SubItems.Add('Kein Eintrag');
ListItem.SubItems.Add('Kein Eintrag');
end;