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;