Nach CopyMemory werden Daten nicht übernommen

[EWeiss]

Zitat von Zacherl:

Kannst du mal den Code zeigen, den du für das Kopieren der Pixeldaten verwendest? Eigentlich sollte das ja analog zum Header funktionieren.

So wie ich das verstehe muss ich meinen Zeiger von .bmBits in den Array Deskriptor setzen nur wie wo an welcher stelle.
Ohne das die Daten zwischenzeitlich wieder überschrieben werden.

gruss

[Zacherl]

Sollte analog zum Header folgendermaßen funktionieren:

Delphi-Quellcode:

var
  Data: Pointer;
{ ... }
  size := width * height * bytePerPixel;
  PpixelDataArr := SafeArrayCreateVector(VT_UI1, 0, size);
  SafeArrayAccessData(PpixelDataArr, Data);
  CopyMemory(Data, Pointer(NativeUInt(BitmapStream.Memory) + SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader)), size);
  SafeArrayUnaccessData(PpixelDataArr);

[EWeiss]

Zitat von Zacherl:

Sollte analog zum Header folgendermaßen funktionieren:

Delphi-Quellcode:

var
  Data: Pointer;
{ ... }
  size := width * height * bytePerPixel;
  PpixelDataArr := SafeArrayCreateVector(VT_UI1, 0, size);
  SafeArrayAccessData(PpixelDataArr, Data);
  CopyMemory(Data, Pointer(NativeUInt(BitmapStream.Memory) + SizeOf(TBitmapFileHeader) + SizeOf(TBitmapInfoHeader)), size);
  SafeArrayUnaccessData(PpixelDataArr);

Danke dir..

Ich habe es mittlerweile gelöst es gibt aber noch ein paar kleine Probleme mit der Bitmap.
Ich denke 1 Pixel als Rahmen gezeichnet ist einfach zu wenig werde da mal stufenweise erhöhen da er mir sonst
alle Fenster als Magenta anzeigt.

Ich musste den Zeiger von .bmBits in den Array Deskriptor setzen.
Das ging nur über OLEVariant zusätzlich mußte ich das Bitmap auf 24Bit setzen (ohne Alpha Channel).

Delphi-Quellcode:

  if AtmoInitialize then
  begin
    BitmapStream := TMemoryStream.Create;
    Background.SaveToStream(BitmapStream);
    BitmapStream.Position := 0;

    Background.LoadFromStream(BitmapStream);

    BitmapStream.Position := 0;
    BitmapStream.Read(BitmapFileHeader, SizeOf(TBitmapFileHeader));
    BitmapStream.Read(BitmapInfoHeader, SizeOf(TBitmapInfoHeader));

    pheader := @BitmapInfoHeader;

    AtmoCtrlLib.AtmoCreateTransferBuffers( BI_RGB, 3, BitmapInfoHeader.biWidth,
      BitmapInfoHeader.biHeight);

    GetObject(Background.Handle, SizeOf(Bmp), @Bmp);

    size := Bmp.bmWidth * Bmp.bmHeight * Bmp.bmBitsPixel;
    PpixelDataArr  := SafeArrayCreateVector(VT_UI1, 0, size);

    bitMapSize := Bmp.bmWidth * Bmp.bmHeight;

    VariantInit(ValOUT);
    TVariantArg(ValOUT).VT := VT_ARRAY or VT_UI1;

    rgsabound[0].cElements := bitMapSize;
    rgsabound[0].lLbound := 0;

    TVariantArg(ValOUT).parray := SafeArrayCreate(VT_UI1, 1, rgsabound);
    if Assigned(TVariantArg(ValOUT).parray) then
    begin
      SafeArrayAccessData(TVariantArg(ValOUT).parray, pArrayData);
      CopyMemory(pArrayData, Bmp.bmBits, bitMapSize);
      SafeArrayCopy(TVariantArg(ValOUT).parray, PpixelDataArr);
      SafeArrayUnaccessData(TVariantArg(ValOUT).parray);
      VariantClear(ValOUT);
    end;
    AtmoCtrlLib.AtmoSendPixelData;

    DeleteObject(Background.Handle);
    FreeAndNil(BitmapStream);
  end;
  FreeAndNil(Background);

Hab auch noch ein paar Speicherlecks die ich finden muss.
Nach dieser Änderung.

Bei der ganzen Sache ist halt das Problem das man nicht oder sehr wenig Informationen über diese Thematik hat.
Aber wie man sieht geht es wenn man nur am Ball bleibt

gruss

[EWeiss]

Kann mir jemand sagen warum innerhalb von ein paar Minuten die Funktion im Post eins höher^
Der Speicher innerhalb von Minuten auf ein paar 100 MB hochgeht?

Ich kann doch nicht mehr machen als den Stream und die Bitmap Daten freizugeben.
Vielleicht noch irgendwas vergessen\Übersehn?

Habe den Atmo Kram auskommentiert trotzdem steigt der Speicher.
Deaktiviere ich die ganze Abfrage bleibt der Speicher konstant.

gruss

[himitsu]

Wie wäre es, wenn man sich mal mit dem dafür nötigen Debugwissen beschschäfftigt?

Angefangen bei ReportMemoryLeaksOnShutdown über die vollen Logging-Funktionen vom großen FastMM bis hin zu spezialisierten Frameworks (Delphi Speicherlecks finden).



Aber du kannst ja auch einfach mal prüfen, ob du alles, was DU da reservierst/erstellst, auch wieder freigibst, was sich nicht selber freigibt.
> Bmp, PpixelDataArr, pArrayData usw.


Du kannst natürlich auch einfach von innen nach außen die Funktionen so weit Stück für Stück auskommentieren bis der Speicher konstant bleibt.

[EWeiss]

begin OT;
Ihr mit euren Spitzfindungen!
Warum versucht ihr die Leute immer zu belehren anstatt einfach nur etwas zum Thema zu sagen.
Wenn ihr das nicht wollt last es einfach.
Ist mir lieber als das unnötige Getue Drumherum.
end OT;

Ich weis was den stetigen Anstieg versursacht nur man kann nicht mehr tun als die Ressourcen freizugeben.

SafeArrayCopy speichert mein neu erstelltest Array in mein Arbeits Array.

Delphi-Quellcode:

SafeArrayCopy(TVariantArg(ValOUT).parray, PpixelDataArr);
SafeArrayDestroy(TVariantArg(ValOUT).parray);
SafeArrayDestroy(PpixelDataArr);

Trotzdem steigt der Speicher!

Jetzt erkläre mir mal mit einem wirklich guten Spruch wie ich den Speicher freigeben soll
wenn die Funktion Ansicht intern diesen Speicherleck verursacht?
Kommentiere ich diese Zeile aus funktioniert alles so wie es soll.

Soll ich jetzt noch 100 NIL's hinterherschicken oder was!

Zitat:

mit dem dafür nötigen Debugwissen beschschäfftigt

Und?
Hätte das ganze keinen triftigen Grund gehabt hätte ich nicht gefragt.
Hört doch auf mit eurem unnötigen Gewäsch.. Trollerei

Nach meiner Korrektur geht es jetzt konstant 14MB Speicher auch ohne dein zutun.

Delphi-Quellcode:

    bitMapSize := Bmp.bmWidth * Bmp.bmHeight;

    rgsabound[0].cElements := bitMapSize;
    rgsabound[0].lLbound := 0;

    PpixelDataArr := SafeArrayCreate(VT_UI1, 1, rgsabound);
    if Assigned(PpixelDataArr) then
    begin
      SafeArrayAccessData(PpixelDataArr, pArrayData);
      CopyMemory(pArrayData, Bmp.bmBits, bitMapSize);
      SafeArrayUnaccessData(PpixelDataArr);
    end;
    AtmoCtrlLib.AtmoSendPixelData;

    pArrayData := nil;
    SafeArrayDestroy(PpixelDataArr);
    DeleteObject(Background.Handle);
    FreeAndNil(BitmapStream);

gruss