Hi,


mein Prolem ist eine Zugriffsverletzung bei der Übergabe von mehreren Bitmaps.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMyReportingObj.RvGetCols(Connection: TRvCustomConnection);
begin
  with Connection do
  begin
    WriteField('Bild1', dtGraphic, 20, '', '');
    WriteField('Bild2', dtGraphic, 20, '', '');
    WriteField('Bild3', dtGraphic, 20, '', '');
    WriteField('Bild4', dtGraphic, 20, '', '');
  end;
end;


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

begin

  st_Bild1 := TMemoryStream.Create;
  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;
  GetPicture(st_Bild2, 500, 500);

  st_Bild3 := TMemoryStream.Create;
  GetPicture(st_Bild3, 500, 500);

  st_Bild4 := TMemoryStream.Create;
  GetPicture(st_Bild4, 500, 500);

  with Connection do
  try
    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_Bild1.Free;
    st_Bild1.Free;
    st_Bild1.Free;
    st_Bild1.Free;
  end;

end;

Bei der Übergabe der Bilder via. "WriteBlobData" habe ich für Bild1 und Bild2 zwei kein Problem! Erst beim Bild3 gibt es ene Zugriffsverletzung!

Wenn ich die Abmessungen der Bilder anpasse und von 500x500 auf 64x64 reduziere, dann gibt es keine Zugriffsverletzung. (Das lässt auf ein Speicherproblem schließen.) Das ist aber keine Lösung!

Hat jemand eine Idee wie ich alle Bilder mit einer Auflösung von 500x500 übergeben kann?



Gruß Jan

Wenn ich das Bild als MetaFile erzeuge (statt einer Bitmap), dann beträgt die Größe des Stream für ein Bild 45900 Byte. Damit verschiebt sich das Problem von Bild3 auf Bild4.

Ich möchte noch einmal kurz betonen das Problem ist nicht von der Prozedur "GetPicture" oder vom Bild abhängig! Die Zugriffsverletzung kommt immer bei der dritten bzw. vierten Übergabe (via. "WriteBlobData")

Habe ich etwas vergessen vorher anzugeben?


Gruß

hoi,

in einem anderen Beispiel habe ich mal gesehen das vorher der Speicher reserviert wurde bei
Verwendung von WriteBlobData. Vllt. hilft das schon.

So in etwa:

markieren

Delphi-Quellcode:

GetMem(Buffer,Länge);
WriteBlobData(Buffer,Länge);
FreeMem(Buffer);

cya

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?

hoi,

noch was

markieren

Delphi-Quellcode:

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

sollte bestimmt sein

markieren

Delphi-Quellcode:

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

daher wahrscheinlich auch die zugriffsverletzung

cya

Warum nicht gleich so?

zusammenfalten · markieren

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;

Zitat von soulies:

hoi,
...
sollte bestimmt sein

markieren

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);"

@DeddyH

naja und was soll die Verschachtelung bringen?

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]

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?