delphi 线程

Delphi中线程类TThread 实现多线程编程

Delphi中有一个线程类TThread是用来实现多线程编程的,这个绝大多数Delphi书藉都有说到,但基本上都是对TThread类的几个成员作一简单介绍,再说明一下Execute的实现和Synchronize的用法就完了.然而这并不是多线程编程的全部,我写此文的目的在于对此作一个补充.

线程本质上是进程中一段并发运行的代码.一个进程至少有一个线程,即所谓的主线程.同时还可以有多个子线程.当一个进程中用到超过一个线程时,就是所谓的"多线程".

那么这个所谓的"一段代码"是如何定义的呢?其实就是一个函数或过程(对Delphi而言).

如果用Windows API来创建线程的话,是通过一个叫做CreateThread的API函数来实现的,它的定义为:

HANDLE CreateThread(

LPSECURITY_ATTRIBUTES lpThreadAttributes, //线程属性(用于在NT下进行线程的安全属性设置,在9X下无效),

DWORD dwStackSize, //堆栈大小

LPTHREAD_START_ROUTINE lpStartAddress

?

1. delphi之多线程编程(一)(2)

delphi之多线程编程(一)

本文的内容取自网络，并重新加以整理，在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。

多线程应该是编程工作者的基础技能, 但这个基础我从来没学过，所以仅仅是看上去会一些，明白了2+2的时候，其实我还不知道1+1。

开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解. 先试试这个:

procedure TForm1.Button1Click(Sender: TObject); var

i: Integer; begin

for i := 0 to 500000 do begin

Canvas.TextOut(10, 10, IntToStr(i)); end; end;

上面程序运行时, 我们的窗体基本是 \死\的, 可以在你在程序运行期间拖动窗体试试...

Delphi 为我们提供了一个简单的办法(Application.ProcessMessages)来解决这个问题:

procedure TForm1.Button1Click(Sender:

在前面我们研究了使用AFX_MANAGE_STATE(AfxGetStaticModuleState())进行DLL间的资源切换，以及工作线程中创建Windows消息循环的原理，以为就可以搞定一切类似问题了…但是请看以下代码

DWORD CTestMFCDlg::ThreadFunc(PVOID yy) {

CAboutDlg dlg; dlg.DoModal();

return 0;

}

void CTestMFCDlg::OnOK() {

::CreateThread(NULL,NULL,(LPTHREAD_START_ROUTINE)ThreadFunc,NULL,NULL,NULL);

}

在VC++6.0上编译运行出现以下ASSERT。

void CWnd::AssertValid() const {

……

CHandleMap* pMap = afxMapHWND(); …… CObject* p;

ASSERT((p = pMap->LookupPermanent(m_hWnd)) != NULL ||

(p = pMap->LookupTemporary(m_hWnd)) != NULL);

ASSERT

实验七 线程

一、实验目的

1．线程的概念、线程的生命周期。

2．多线程的编程：继承Thread类与使用Runnable接口。 3．使用多线程机制实现动画。 4. 处理简单的多线程互斥和同步;

二、实验内容与要求 1、 仔细读下面的JAVA语言源程序，自己给出程序的运行结果 public class Ch81 extends Thread { int n; Ch81()

}

public void run() { for (n=0;n<6;n++) { try {

System.out.print(n); Thread.sleep(500); }

catch(InterruptedException e) { System.out.println(\ } }

}

public static void main(String args[]) {

new Ch81(); }

}

2．运行下面的程序，理解用实现Runnable接口的方法实现多线程。 //这是一个时钟Applet，它显示当前

Linux下的多线程编程

作者：姚继锋 2001-08-11 09:05:00 来自：http://www.china-pub.com

1 引言

线程（thread）技术早在60年代就被提出，但真正应用多线程到操作系统中去，是在80年代中期，solaris是这方面的佼佼者。传统的Unix也支持线程的概念，但是在一个进程（process）中只允许有一个线程，这样多线程就意味着多进程。现在，多线程技术已经被许多操作系统所支持，包括Windows/NT，当然，也包括Linux。

为什么有了进程的概念后，还要再引入线程呢？使用多线程到底有哪些好处？什么的系统应该选用多线程？我们首先必须回答这些问题。

使用多线程的理由之一是和进程相比，它是一种非常\节俭\的多任务操作方式。我们知道，在Linux系统下，启动一个新的进程必须分配给它独立的地址空间，建立众多的数据表来维护它的代码段、堆栈段和数据段，这是一种\昂贵\的多任务工作方式。而运行于一个进程中的多个线程，它们彼此之间使用相同的地址空间，共享大部分数据，启动一个线程所花费的空间远远小于启动一个进程所花费的空间，而且，线程间彼此切换所需的时间也远远小于进程间切换所需要的时间。据统计，总的说来

1. 编一个程序，实现两个线程 A 和 B ，A 和 B 同时启动，A线程每隔5秒显示字符

串”AAA”，B线程每隔 1秒显示字符‘B’。

2. 使用java语言编写代码,要求实现一个线程每隔10秒打印一次当前系统时间,另外一个线

程从1开始计数,每当数字可以被4整除时输出 ******* 。

3. 有5辆火车要过山洞,但确保山洞同时只能有一辆火车通过（过山洞需要2秒），打印输

出火车通过的顺序。（过山洞的顺序是不可控的，只要保证同一时间只有一辆火车能通过山洞即可） 提示：使用线程同步

4. 有2个用户，都到银行去存钱，每次存100元，每人存3次。

5. 猴子分桃：3只猴子抢着分100只桃子，每只抢到的猴子分去剩余桃子的一半。使用多

线程模拟这一过程

6. 写两个线程，一个线程打印 1~52，另一个线程打印字母A-Z打印顺序为

12A34B56C……51Y52Z（2个数字1个字母）。 提示：使用线程间的通信。

7. 生产者消费者:有一个生产者对象，还有一个消费者对象生产者用来向篮子对象中放苹

果，每次1个。消费者从篮子中取走吃掉1个苹果，，再生产1个,吃掉1个，共进行4轮。

DELPHI电喷系统故障码表

故障代码：故障描述对应的十进制数P0107进气压力传感器断路或信号端针脚短路到电瓶负极263P0108进气压力传感器信号端针脚短路到电瓶正极264P0112P0113P0117P0118P0122P0123P0131P0132P0031P0032P0201P0202P0230P0232P0336P0337P0351P0352P0562P0563P0560P1693P1694P0137P0138P0038P0037P0445P0444P0850P0500

进气温度传感器信号端针脚短路到电瓶负极进气温度传感器断路或信号端针脚短路到电瓶正极缸头温度传感器信号端针脚短路到电瓶负极

缸头温度传感器断路或信号端针脚短路到电瓶正极节气门位置传感器信号短路到电瓶正极前缸氧传感器信号端针脚短路到电瓶负极前缸氧传感器信号端针脚短路到电瓶正极前缸氧传感器加热端针脚短路到电瓶负极前缸氧传感器加热端针脚短路到电瓶正极前缸喷油器故障

后缸喷油器故障（如喷油器插件没插好或虚接）油泵断路或短路到电瓶负极油泵短路到电瓶正极曲轴位置传感器有干扰曲轴位置传感器无信号前缸点火线圈故障

后缸点火线圈故障电喷系统电压过低电喷系统电压过高

故障灯故障（灯丝坏或插件没插）

实验七 线程

一、实验目的

1．线程的概念、线程的生命周期。

2．多线程的编程：继承Thread类与使用Runnable接口。 3．使用多线程机制实现动画。 4. 处理简单的多线程互斥和同步;

二、实验内容与要求 1、 仔细读下面的JAVA语言源程序，自己给出程序的运行结果 public class Ch81 extends Thread { int n; Ch81()

}

public void run() { for (n=0;n<6;n++) { try {

System.out.print(n); Thread.sleep(500); }

catch(InterruptedException e) { System.out.println(\ } }

}

public static void main(String args[]) {

new Ch81(); }

}

2．运行下面的程序，理解用实现Runnable接口的方法实现多线程。 //这是一个时钟Applet，它显示当前

编写类ExceptionTest2： 定义两个方法：go()和main()

在go方法中声明要抛出异常，在该方法体内，抛出一个Exception对象

在main()方法中，调用go方法，使用try/catch捕获go方法中抛出的异常

class ExceptionTest2 { }

void go()throws Exception { }

throw(new Exception(\抛出的异常！\

public class Test { }

public static void main(String args[]) { }

ExceptionTest2 t2=new ExceptionTest2(); try { }

catch (Exception e) { }

e.printStackTrace(); t2.go();

实现多线程的两种方法： 继承Thread类

实现Runnable接口

先看继承Thread

class MyThread extends Thread { }

public class Test {

public static v

set target-async 1 set pagination off set non-stop on

info threads

显示当前可调试的所有线程，每个线程会有一个GDB为其分配的ID，后面操作线程的时候会用到这个ID。

前面有*的是当前调试的线程。

thread ID

切换当前调试的线程为指定ID的线程。

break thread_test.c:123 thread all 在所有线程中相应的行上设置断点

thread apply ID1 ID2 command

让一个或者多个线程执行GDB命令command。

thread apply all command

让所有被调试线程执行GDB命令command。

set scheduler-locking off|on|step

估计是实际使用过多线程调试的人都可以发现，在使用step或者continue命令调试当前被调试线程的时候，其他线程也是同时执行的，怎么只让被调试程序执行呢？通过这个命令就可以实现这个需求。

off 不锁定任何线程，也就是所有线程都执行，这是默认值。 on 只有当前被调试程序会执行。

step 在单步的时候，除了next过一个函数的情