Osvaldo G. Da Cruz Júnior

Correção: Substituir: livAnuncioCaminhao.BeginUpdate e livAnuncioCaminhao.EndUpdate Para: ListView1.BeginUpdate e ListView1.EndUpdate procedure TMainForm.LIstView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var URL_Foto: String; Foto: TListItemImage; Strm: TMemoryStream; TmpImagem: TImage; Http: TiDHTTP; myThread: TThread; begin Foto := TListItemImage(AItem.View.FindDrawable('FOTO')); URL_Foto := TListItemText(AItem.View.FindDrawable('URL_FOTO')).Text; TListItemText(AItem.View.FindDrawable('URL_FOTO')).Visible := False; if (not URL_Foto.IsEmpty ) and (Foto <> nil) and (Foto.Bitmap = nil) then begin URL_Foto := 'http://www.SEUDOMINIO.com.br/imagens/' + URL_Foto; myThread := TThread.CreateAnonymousThread( procedure () begin Strm := TMemoryStream.Create; Http := TiDHTTP.Create(Self); TmpImagem := TImage.Create(nil); ListView1.BeginUpdate; try Http.Get(URL_FOTO, Strm); if (Strm.Size > 0) then begin Strm.Position := 0; TThread.Synchronize(myThread, procedure () begin TmpImagem.Bitmap.LoadFromStream(Strm); Foto.OwnsBitmap := False; Foto.Bitmap := nil; Foto.Bitmap := TmpImagem.Bitmap; end);; end; finally Strm.Free; Http.Free; //Assim dá access violation //TmpImagem.Free; ListView1.EndUpdate; end; end); myThread.start(); end; end;

Em tempo de execução, também pode utilizar o evento: UpdateObjects: procedure TMainForm.LIstView1UpdateObjects(const Sender: TObject; const AItem: TListViewItem); var URL_Foto: String; Foto: TListItemImage; Strm: TMemoryStream; TmpImagem: TImage; Http: TiDHTTP; myThread: TThread; begin Foto := TListItemImage(AItem.View.FindDrawable('FOTO')); URL_Foto := TListItemText(AItem.View.FindDrawable('URL_FOTO')).Text; TListItemText(AItem.View.FindDrawable('URL_FOTO')).Visible := False; if (not URL_Foto.IsEmpty ) and (Foto <> nil) and (Foto.Bitmap = nil) then begin URL_Foto := 'http://www.SEUDOMINIO.com.br/imagens/' + URL_Foto; myThread := TThread.CreateAnonymousThread( procedure () begin Strm := TMemoryStream.Create; Http := TiDHTTP.Create(Self); TmpImagem := TImage.Create(nil); livAnuncioCaminhao.BeginUpdate; try Http.Get(URL_FOTO, Strm); if (Strm.Size > 0) then begin Strm.Position := 0; TThread.Synchronize(myThread, procedure () begin TmpImagem.Bitmap.LoadFromStream(Strm); Foto.OwnsBitmap := False; Foto.Bitmap := nil; Foto.Bitmap := TmpImagem.Bitmap; end);; end; finally Strm.Free; Http.Free; //Assim dá access violation //TmpImagem.Free; livAnuncioCaminhao.EndUpdate; end; end); myThread.start(); end; end;