Rave Report Zugriffsverletztung bei Übergabe von einem Bild

[cocsy]

Hallo soulies,

leider hilft es nicht weiter,

die Übergabe funktioniert ja auch,
kommt der Rave Report damit vieleicht nicht klar?

ich verwende Rave Report: BE 7.6.2

hat jemand noch eine Idee?

[soulies]

hoi,

noch was

Delphi-Quellcode:

finally
    st_Bild1.Free;
    st_Bild1.Free;
    st_Bild1.Free;
    st_Bild1.Free;
end;

sollte bestimmt sein

Delphi-Quellcode:

finally
    st_Bild1.Free;
    st_Bild2.Free;
    st_Bild3.Free;
    st_Bild4.Free;
end;

daher wahrscheinlich auch die zugriffsverletzung

cya

[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;

[cocsy]

Zitat von soulies:

hoi,
...
sollte bestimmt sein

Delphi-Quellcode:

finally
    st_Bild1.Free;
    st_Bild2.Free;
    st_Bild3.Free;
    st_Bild4.Free;
end;

cya

ja das sollte es!

Zitat von soulies:

hoi,
...
daher wahrscheinlich auch die zugriffsverletzung
cya

nein deswegen nicht! (ich hatte mich nur verschrieben)
die Zugriffsverletzung kommt unmittelbar beim Aufruf von

"WriteBlobData(st_Bild3.Memory^, st_Bild3.Size);"

[cocsy]

@DeddyH

naja und was soll die Verschachtelung bringen?

[DeddyH]

Ich habe es zwar per C&P auch ohne, aber fehlt da nicht ein begin-end nach dem with?

[edit]

Zitat von cocsy:

@DeddyH

naja und was soll die Verschachtelung bringen?

Die soll bringen, dass die erzeugten Objekte auch im Fehlerfall freigegeben werden.[/edit]

[cocsy]

ja, bei deinem Quellcode fehlt nach der with -anweisung das begin und end!
(bei mir wird es auch im Fehlerfall freigegeben!)


muss ich vieleicht bei der Rave-Datei noch irgend einen Parameter setzen?

[DeddyH]

Zitat von cocsy:

(bei mir wird es auch im Fehlerfall freigegeben!)

Wenn Du meinst (hier gibt es zig Threads dazu, die das widerlegen). Zum eigentlichen Problem kann ich aber nichts zusteuern, da ich mit Rave nie etwas gemacht habe. Wenn ich das richtig mitbekommen habe, ist bei Nevrona wohl auch tote Hose mittlerweile.

[soulies]

hoi,

also folgendes klappt bei mir ohne probleme

Delphi-Quellcode:

procedure TForm1.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
begin
  Connection.WriteField('Bild1', dtGraphic, 20, '', '');
  Connection.WriteField('Bild2', dtGraphic, 20, '', '');
  Connection.WriteField('Bild3', dtGraphic, 20, '', '');
end;

procedure TForm1.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
var Bild,Bild2,Bild3: TMemoryStream;
begin
  Bild := TMemoryStream.Create;
  Bild2 := TMemoryStream.Create;
  Bild3 := TMemoryStream.Create;
  try
    Bild.LoadFromFile( 'C:\test1.bmp' );
    Bild2.LoadFromFile('C:\test2.bmp');
    Bild3.LoadFromFile('C:\test3.bmp');

    Connection.WriteBlobData(Bild.Memory^, Bild.Size);
    Connection.WriteBlobData(Bild2.Memory^, Bild2.Size);
    Connection.WriteBlobData(Bild3.Memory^, Bild3.Size);

  finally
    Bild.Free;
    Bild2.Free;
    Bild3.Free;
  end;
end;

Ist dem RvProject die richtige *.rav Datei mitgegeben worden?

Hast Du im Rave Projekt die Dataview-Connection richtig eingerichtet und den Bitmap Feldern zugewiesen ?

cya