Delphi Thread Class DIY (pass the class pointer as a parameter, you can execute the method in the class)

Delphi encapsulates a very powerful threading class TThread,

We also make a simple threading class by ourselves

First type of a class

[Delphi]View PlainCopy

1. type  
2.    twwthread = class  
3.      constructor create; overload;  
4.      DESTRUCTOR DESTROY; OVERRIDE;  
5.   PRIVATE  
6.     m_hthread: thandle;     //thread   
7.     m_threadid : tthreadid;  
8.   public  
9.      procedure execute;  
10.    END;  

[Delphi]View PlainCopy

2. function Wwthreadproc (thread:twwthread): Integer;
4. Begin
6. Thread. Execute (); //  
8. End
10. Constructor Twwthread.  Create;
12. Begin
14. M_hthread: = CreateThread (nil, 0, @wwThreadProc, Pointer (self), 0, M_threadid); {The focus here is on the fourth parameter, passing the class pointer as a parameter, so you can execute the method inside the class}
16. End
18. destructor Twwthread.  Destroy;
20. Begin
22. inherited;
24. End
26. Procedure Twwthread.  Execute;
28. Begin
30. //write the code here
32. End

To declare:

[Delphi]View PlainCopy

1. Var
2. Mythread:twwthread;

Start ~

[Delphi]View PlainCopy

1. MyThread: = Twwthread.  Create;

http://blog.csdn.net/warrially/article/details/7887700

Delphi Thread Class DIY (pass the class pointer as a parameter, you can execute the method in the class)