Liste Thread sicher abholen

**alzaimar**

Ich verstehe einfach nicht, wieso Du keine TThreadlist nimmst... (Ich verstehe auch nicht, wieso Du nicht einfach eine 'TCriticalSection' verwendest. Dafür hast Du doch Delphi, damit Du dich nicht/seltener mit der API rumschlagen musst)
So gehts im Prinzip:

zusammenfalten · markieren

Delphi-Quellcode:

			Var

  LocalList : TList;

Begin

  LocalList := MyThreadList.LockList;

  Try

//    ... tuwat mit der LocalList

  Finally

     MyThreadList.Unlock;

  End

End;

Dein Thread erstellt also eine neue EnumWindowsList und schmeisst Die dann per o.g. Code in die ThreadListe. Wenn jemand von außen die Liste will, macht er das genauso:

zusammenfalten · markieren

Delphi-Quellcode:

			Procedure TMyThread.AssignToThreadList (aList : TList);

Var

  LocalList : TList;

Begin

  LocalList := MyThreadList.LockList;

  Try

     LocalList.Assign (aList);

  Finally

     MyThreadList.Unlock;

  End

End;

Procedure TMyThread.GetFromThreadList (aList : TList);

Var

  LocalList : TList;

Begin

  LocalList := MyThreadList.LockList;

  Try

     LocalList.AssignTo (aList);

  Finally

     MyThreadList.Unlock;

  End

End;

Procedure TMyThread.Excute;

Var

  MyList : TList;

Begin

  While not Terminated Do Begin

    CreateWindowList (MyList);

    AssignToThreaDList (MyList);

    Sleep(SomeTime); // sonst geht doch die CPU auf 100%

  End

Fertig.

Wenn Du eine CS willst, dann geht das damit (fast) genauso. Aber wieso das Rad neu entwickeln. Dazu gibt es schließlich die TThreadlist.

Liste Thread sicher abholen

Re: Liste Thread sicher abholen

Forumregeln