Zitat von
Luckie:
Zitat von
Jackie1983:
Nur oben dieser Code, wenn ich den per Timer immer wieder aufrufe, wird der Speicher größer und größer.
Sei doch froh, andere geben viel Geld für mehr Speicher aus.
Speicherauslastung im Taskmanager meinte ich.
Delphi-Quellcode:
function ADsEnumerateNext(pEnumVariant: IEnumVARIANT; cElements: ULONG;
var pvar: OleVARIANT; var pcElementsFetched: ULONG): HRESULT; safecall; external 'activeds.dll';
//..
while (Succeeded(ADsEnumerateNext(Enum, 1, varArr, lNumElements))) and (lNumElements > 0) do
Wenn ich die While Schleife raus nehme habe ich keinen Fresser mehr.