quickrep - qrimage nesnesine resim göndermek?

[erdogan_ozkaya]

Arkadaşlar,

Aşağıdaki kodu internetten resimleri image nesnesine aktarıp gösteriyorum bir sorun yok fakat kayıtları listeleyip yazdırmak istiyorum quickrep - qrimage nesnesine resimi gönderiyorum qrband'da sadece bir resim çıkıyor kodun neresine ne yazmalıyımki her resim kendi sırasın da çıksın?

Kod: Tümünü seç

var
  MS : TMemoryStream;
  jpegResim : TJpegImage;
begin
  MS := TMemoryStream.Create;
  try
    jpegResim := TJpegImage.Create;
    try
      try
        IdHTTP1.Get('http://www.xxxxx.com/resimler/'+veri.Master_Data.FieldByName('resim_yol').AsString, MS);
      except
        on e: EIdHTTPProtocolException do begin
            exit;
          end else begin
            raise;
          end;
        end;
      MS.Position := 0;
      jpegResim.LoadFromStream(MS);
      veri.QRImage1.Picture.Assign(jpegResim);
    finally
      jpegResim.Free;
    end;
  finally
    MS.Free;
    veri.QuickRep1.Preview
  end;
  end;