Delphi TThread 和 CreateThread 简单区别

最新推荐文章于 2023-05-24 11:22:00 发布
最新推荐文章于 2023-05-24 11:22:00 发布
阅读量3.8k 收藏 3
点赞数 1
分类专栏： Delphi 被我搞丢的语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_23044209/article/details/78144283
版权
本文探讨了使用Delphi的TThread和CreateThread创建线程时遇到的内存泄漏问题。TThread在被TerminateThread强制结束时会出现内存泄漏，而CreateThread则不会。线程函数中动态分配的内存如果在线程内部释放，可能导致内存泄漏，但通过TerminateThread结束时不会。文章还简要介绍了两个函数的使用方法。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

（JDD_KK原创）

一、写代码的时候碰到一个线程内存泄漏的问题：
描述：
创建线程： Delphi 自带的 TThread 类
强制结束： TerminateThread
结果 ： 会造成内存泄漏。

创建线程 ： CreateThread
强制结束：TerminateThread
结果 ： 不会造成内存泄漏。

二、若有CreateThread 的线程函数里面有需要动态分配内存的情况，则需要将 需要动态分配和释放内存放在线程函数外面，不能放在函数里面。若放在里面，线程函数自动结束时会造成内存泄漏，但是使用TerminateThread强制结束又没有内存泄漏。（这是一个很奇怪的现象，大家可以参照一下。可能我自己做的有不对的，也可以告诉我，一起学习的哈）

三、简述一下其中两个函数的使用方式

CreateThread(nil, 0, @线程函数名, nil（线程函数的参数，我这里无参就用的nil，若需要参数，网上有例子，大家可以看一下）, 0, id（TerminateThread强制结束时需要用到）);
注：使用CreateThread，一定要使用CloseHandle；

TerminateThread(id, 0（超时，我一般就设置立即结束为0）);

简单放置一段代码哈，里面有些小细节我会在后面注释的

type
  TForm1 = class(TForm)
  end;
  procedure IPNetPrinter;stdcall; //此声明要放
最低0.47元/天 解锁文章
delphi之多线程编程(一)
Follow Me
07-09 1632
<br />本文的内容取自网络，并重新加以整理，在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。<br /><br />多线程应该是编程工作者的基础技能, 但这个基础我从来没学过，所以仅仅是看上去会一些，明白了2+2的时候，其实我还不知道1+1。<br /><br />开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.<br />先试试这个:<br /> <br />procedure TForm1.Button1Click(Sen
delphi android 多线程,Delphi中使用TThread进行多线程开发总结
weixin_35657965的博客
05-26 660
最近项目的Demo开发使用Delphi 2010，其中使用了多线程开发技术这里采用VCL的TThread类完成多线程开发，直接使用CreateThread的办法之前用过很多，这里就当练习，试试采用TThread类TThread类类似VC中的CThread，主要是采用面向对象思想对CreateThread封装了一层，方便多线程的代码编写，线程执行所需要的相关参数可以很方便的设置，线程的操作和线程状态...
AfxBeginThread和CreateThread的区别
06-06 697
具体说来，CreateThread这个 函数是windows提供给用户的 API函数，是SDK的标准形式，在使用的过程中要考虑到进程的同步与互斥的关系，进程间的同步互斥等一系列会导致操作系统死锁的因素，用起来比较繁琐一些，初学的人在用到的时候可能会产生不可预料的错误，建议多使用AfxBeginThread，是编译器对原来的CreateThread函数的封装，用与MFC编程（当然，只要修改了项目属性
delphi 多线程-CreateThread
weixin_33916256的博客
02-15 1043
function CreateThread(  lpThreadAttributes: Pointer;           {安全设置}  dwStackSize: DWORD;                    {堆栈大小}  lpStartAddress: TFNThreadStartRoutine; {入口函数}  lpParameter: Pointer;              ...
在Delphi中创建线程，请一定使用BeginThread()代替CreateThread()创建线程！
热门推荐
gencheng的专栏
11-05 1万+
在Delphi中创建线程，请一定使用BeginThread()代替CreateThread()创建线程！ 　　如果直接使用Win32的API函数CreateThread()创建多个线程，也是可以创建的。但是，你应该明白，在每个线程中动态分配和销毁内存块，是需要同步保护的。Delphi语言中有一个在使用多线程环境下至关重要的全局变量IsMultiThread,系统在进行内存分配的时候，根据IsMu
_beginthread_和_CreateThread_区别与使用方法
04-04
_beginthread_和_CreateThread_区别与使用方法
Delphi TThread详解：多线程编程关键与Windows API底层解析
考虑到CreateThread的复杂性和Windows API的局限性，Delphi为了简化开发者的使用，提供了一个更为易用的函数：BeginThread。这个函数接受相似的参数，如线程安全属性、堆栈大小、用户自定义的线程启动函数、参数和...
Delphi使用CreateAnonymousThreadX传递参数的匿名线程
01-19
- Delphi提供多种创建线程的方式，包括`TThread`类和原生的`CreateThread`函数。 2. **`TThread`类和匿名线程** - `TThread`是Delphi中的线程类，提供了丰富的功能，如线程同步、消息处理等。 - `TThread....
Delphi中有一个线程类TThread是用来实现多线程编程
01-23
总之，TThread类是Delphi中实现多线程编程的强大工具，它简化了线程的创建、管理和同步，使得开发者可以更专注于线程的具体任务，而不是底层的系统调用。深入理解TThread的内部工作原理，可以帮助我们编写出更加高效...
std::thread vs CreateThread
辛亚平的专栏
12-29 5300
从 C++11 开始，线程，成为了 C++ 标准库的一部分，所以我们可以不再使用 CreateThread 来创建线程，简简单单地使用 std::thread 即可。而且，CreateThread 是平台相关的，而 std::thread 是跨平台的。
createthread函数用法详解
06-10
详细介绍了createthread函数 在程序中的运用 对于c++多线程的学习有很大帮助
CreateThread创建多线程与单线程比较
04-07
仿多线程的效果一般有2种办法：第一种是通过定时器；第二种是启动多线程，不同模式下启动函数不同，mfc与API与WIN32下面注意点也是有区别的！ VC启动一个新线程的三种方法，有需要的朋友可以参考下。 第一种AfxBeginThread() 用AfxBeginThread()函数来创建一个新线程来执行任务，工作者线程的AfxBeginThread的原型如下： CWinThread* AfxBeginThread(AFX_THREADPROC pfnThreadProc, 　　LPVOID lParam, 　　int nPriority = THREAD_PRIORITY_NORMAL, 　　UINT nStackSize = 0, 　　DWORD dwCreateFlags = 0, 　　LPSECURITY_ATTRIBUTES lpSecurityAttrs = NULL 　　);//用于创建工作者线程 返回值： 成功时返回一个指向新线程的线程对象的指针，否则NULL。 pfnThreadProc : 线程的入口函数，声明一定要如下： UINT MyThreadFunction(LPVOID pParam），不能设置为NULL; pParam : 传递入线程的参数，注意它的类型为：LPVOID，所以我们可以传递一个结构体入线程. nPriority : 线程的优先级，一般设置为 0 .让它和主线程具有共同的优先级. nStackSize : 指定新创建的线程的栈的大小.如果为 0，新创建的线程具有和主线程一样的大小的栈 dwCreateFlags : 指定创建线程以后，线程有怎么样的标志.可以指定两个值： CREATE_SUSPENDED : 线程创建以后，会处于挂起状态，直到调用：ResumeThread 0 : 创建线程后就开始运行. lpSecurityAttrs : 指向一个 SECURITY_ATTRIBUTES 的结构体，用它来标志新创建线程的安全性.如果为 NULL, 那么新创建的线程就具有和主线程一样的安全性. 如果要在线程内结束线程，可以在线程内调用 AfxEndThread. 一般直接用AfxBeginThread(ThreadProc,this); 示例： UINT myproc(LPVOID lParam){CITTDlg *pWnd = (CITTDlg *)lParam; //将窗口指针赋给无类型指针pWnd->KMeansSegment(); //要执行的函数return 1;}void CITTDlg::KMeansSegment(){// 主要处理函数在这里写}void CITTDlg::OnKMeansSegment() //按钮点击执行{AfxBeginThread(myproc, (LPVOID)this);//启动新的线程} 注意，工作者线程的函数必须是全局函数或静态成员函数，不能是普通的成员函数。 第二种CreateThread()函数原型为：HANDLECreateThread( NULL, // 没有安全描述符 0, // 默认线程栈的大小 MyThreadProc, // 线程函数指针，即函数名 (LPVOID)&n, // 传递参数 NULL, // 没有附加属性 NULL // 不需要获得线程号码 ); CreatThread，它返回的是一个句柄；如果不需要再监视线程，则用CloseHandle()关闭线程句柄。 线程的函数必须定义为： DWORD WINAPI MyThreadProc(LPVOID pParameter)； 下面演示多线程操作控件，点击一个Button然后运行一个线程，将字符串显示在CEdit控件里面； 示例： .h头文件struct hS {CString Tmp;CTestDlg *hWnd; };//定义全局结构体，用来传递自定义消息DWORD WINAPI ThreadProc(LPVOIDlpParam);//线程函数声明，全局函数public: CString chtmp； struct hS *hTmp;protected: HANDLE m_hThread;//线程句柄 CEdit m_Edit；.cpp实现文件//线程执行函数DWORD WINAPI ThreadProc(LPVOID lpParam){//在这里写处理函数struct hS *Tmp2;Tmp2 = (hS*)lpParam;// 操作： Tmp2->hWnd->m_Edit.SetWindowText( (LPTSTR)Tmp2->Tmp );}void CTestDlg::OnBnClickedButton1(){ hTmp->Tmp = chtmp; hTmp->hWnd = this;//关键是把this指针传进去 m_hThread =CreateThread(NULL,0,ThreadProc,hTmp,0,NULL);//创建新线程 CloseHandle(m_hThread );} 用CreateThread（）函数创建线程将返回一个线程句柄，通过该句柄你可以控制和操作该线程，当你不用时可以一创建该线程后就关闭该句柄，有专门的函CloseHandle()。关闭句柄不代表关闭线程，只是你不能在外部控制该线程（比如，提前结束，更改优先级等）。在线程结束后，系统将自动清理线程资源，但并不自动关闭该句柄，所以线程结束后要记得关闭该句柄。 第三种_beginthread() 函数原型为：intptr_t _beginthread( void( *start_address )( void * ), //指向新线程调用的函数的起始地址 unsigned stack_size, //堆栈大小，设置0为系统默认值 void *arglist //传递给线程函数的参数，没有则为NULL ); 返回值： 假如成功，函数将会返回一个新线程的句柄，用户可以像这样声明一个句柄变量存储返回值： 　　HANDLE hStdOut = _beginthread( CheckKey, 0, NULL )。如果失败_beginthread将返回-1。所在库文件： #include 线程函数的定义： 对于_beginthread()创建的线程，其线程函数定义为： void ThreadPro(void * pArguments ); _beginthreadex()为_beginthread()的升级版。 总结：AfxBeginThread是MFC的全局函数，是对CreateThread的封装。 CreateThread是Win32 API函数，AfxBeginThread最终要调到CreateThread。而_beginthread是C的运行库函数。
delphi多线程例子 采用createThread创建多线程
qq_24932309的博客
09-14 2590
一、才用createThread创建多线程，需要先声明一个多线程句柄（全局的）如：hThread：THandle； 二、声明了一个多相处句柄之后，还需要先写一个函数，在创建多线程是用来掉用的函数。 三、使用createThread创建多线程，hThread：=createThread(nil, 0, @MyThreadFun1, nil, CREATE_SUSPENDED, ID);这里线程创
delphi TThread.CreateAnonymousThread 弹出查询时间窗口
全粘工程师
06-06 1865
var lthread: TThread; i: Integer; lb: boolean; begin lthread := TThread.CreateAnonymousThread(procedure var lform: tform; k: Integer; begin lform := tform.Create(nil); ...
多线程的三种创建方式详讲 以及具体使用方法和区别(Thread Runnable Callable)
Fann
02-01 668
多线程第一种创建方式 继承Thread类 package CreatThread; /** * Description:创建多线程类的第一种方式, 继承Thread类 * Thread是一个类,它实现了Runable接口 * 使用方式:ThreadDemo threadDemo = new ThreadDemo(); * threadDemo.s...
CreateThread函数
Cactus_Lrg的博客
09-25 1561
CreateThread
Delphi中的线程类Thread
gencheng的专栏
11-02 2084
原文：http://www.heibai.net/article/info/info.php?infoid=22594 　　Delphi中有一个线程类TThread是用来实现多线程编程的，这个绝大多数Delphi书藉都有说到，但基本上都是对TThread类的几个成员作一简单介绍，再说明一下Execute的实现和Synchronize的用法就完了。然而这并不是多线程编程的全部，我写此文的目的在于对
delphi Createthread的线程传参数
weixin_30466039的博客
07-22 686
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type Test=record a: Integer; b: Integer; end; ...
delphi多线程TThread详解
疯流人物
05-24 2086
你的程序就必须等10秒以后才能关闭，受得了吗。VCL中，工作线程执行在Execute方法中，你必须从TThread继承一个类并覆盖Execute方法，在这个方法中，所有代码都是在另一个 线程中执行的，除此之外，你的线程类的其他方法都在主线程执行，包括构造方法，析构方法，Resume等，很多人常常忽略了这一点。在CSDN论坛上看到一些人问，我的窗口在线程中调用为什么出错，主线程怎么向其他线程发送消息等等，其实，我们在抱怨线程难用时，也要想想我们使用的方法对不对，只要遵循一些正确的使用规则，线程其实很简单。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值