Thread
شما بوسیله ترد روالهایی را خارج از ترد اصلی برنامتون (برنامه شما نیز یک ترد است که ویندوز آنرا مدیریت خواهد کرد) اجرا و مدیریت می کنید.
برای ساختن یک ترد جدید از فرمان CreateThread که یک فرمان API است استفاده می کنید:
با فرمان ResumeThread ترد را به کار می اندازید و با فرمان SuspendThread آنرا معلق خواهید کرد.کد:The CreateThread function creates a thread to execute within the address space of the calling process.
HANDLE CreateThread(
LPSECURITY_ATTRIBUTES lpThreadAttributes, // pointer to thread security attributes
DWORD dwStackSize, // initial thread stack size, in bytes
LPTHREAD_START_ROUTINE lpStartAddress, // pointer to thread function
LPVOID lpParameter, // argument for new thread
DWORD dwCreationFlags, // creation flags
LPDWORD lpThreadId // pointer to returned thread identifier
);
ولی در کل دلفی یک کلاس که این فرامین را دربر دارد را تعریف کرده و آنرا TThread نامید است که ما برای استفاده از ترد با این کلاس سروکار خواهیم داشت.
برای ساختن یک ترد که روال مورد نظر ما را اجرا کند به این روش عمل خواهیم کرد:
یک کلاس جدید می سازیم و آنرا از کلاس TThread مشتق می گیری:
حالا شما نیاز دارید که روال مورد نظر برای اجرا شدن آن با ترد را تعریف کنید:کد:type
MyThread = Class(TThread)
end;
همانطور که میبینید در انتهای این روال کلمه override نوشته شده که به معنای آن است که این روال بر روی همین روال در کلاس مادر که موجود است اجرا خواهد شد یعنی این روال در کلاس مادر نیز موجود است و بعد از اجرا شدن آن اسن روال نیز بلافاصله اجرا خواهد شد.کد:type
MyThread = Class(TThread)
private
public
protected
procedure Execute; override;
end;
procedure MyThread.Execute;
begin
// ...
end;
و در نهایت شما اینگونه از کلاس ترد جدید استفاده خواهید کرد:
یا حق ...کد:var
CopyTh : MyThread;
begin
try
CopyTh := MyThread.Create(True);
CopyTh.FreeOnTerminate := True;
CopyTh.Resume;
except
On E : Exception do
ShowMessage(E.Message);
end;
end;
