Nach CopyMemory werden Daten nicht übernommen

[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