Rave Report Zugriffsverletztung bei Übergabe von einem Bild

[DeddyH]

Warum nicht gleich so?

Delphi-Quellcode:

procedure TMyReportingObj.RvGetRow(Connection: TRvCustomConnection);
var st_Bild1, st_Bild2, st_Bild3, st_Bild4: TMemoryStream;

begin

  st_Bild1 := TMemoryStream.Create;
  try
    GetPicture(st_Bild1, 500, 500); // zur Laufzeit erzeugtes Bild (Höhe = 500, Breite = 500 Pixel)
                                      // Bild wird als Bitmap erzeugt und als Stream übergeben.
    st_Bild2 := TMemoryStream.Create;
    try
      GetPicture(st_Bild2, 500, 500);
    
      st_Bild3 := TMemoryStream.Create;
      try
        GetPicture(st_Bild3, 500, 500);
      
        st_Bild4 := TMemoryStream.Create;
        try
          GetPicture(st_Bild4, 500, 500);
        
          with Connection do
            WriteBlobData(st_Bild1.Memory^, st_Bild1.Size); // st_Bild1.Size = 1000 054 Byte
            WriteBlobData(st_Bild2.Memory^, st_Bild2.Size);
            WriteBlobData(st_Bild3.Memory^, st_Bild3.Size);
            WriteBlobData(st_Bild4.Memory^, st_Bild4.Size);
        finally
          st_Bild4.Free;
        end;
      finally
        st_Bild3.Free;
      end;
    finally
      st_Bild2.Free;
    end;
  finally
    st_Bild1.Free;
  end;

end;