先看一个非多线程的例子, 代码执行时不能进行其它操作(譬如拖动窗体):{自定义方法: 在窗体上绘制...}procedure MyMethod; vari: Integer; beginfor i := 0to500000dobeginForm1.Canvas.Lock;Form1.Canvas.TextOut(10, 10, IntToStr(i));Form1.Canvas.Unlock;end; end;{调用上面的自定义方法}procedure TForm1.Button1Click(Sender: TObject); beginMyMethod; end;修改为多线程(只修改一行代码):procedure MyMethod; vari: Integer;...
开始研究最重要的多线程读写全局数据了，结合书上的例子，我修改成下面的情况： unit Tst_Thread3U;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObjec...
转载自：https://www.cnblogs.com/lackey/p/6306368.html第五节：多个线程同时执行相同的任务 1.锁 设，有一个房间 X ，X为全局变量，它有两个函数 X.Lock 与 X.UnLock;有如下代码： X.Lock; 访问资源 P; X.Unlock; 现在有A,B两个线程时空都要执行此段代码。当线程A执行了 X.Lock 之后，在没有执行完 X.Unlock 之前，第二个线程B此时也来执行 X.Lock ，线程B就会阻塞在 X.Lock 这句代码上。我们可以认为，此时，线程A进入房间，...
本文完全摘自网络，仅供自己查询上次跟大家分享了线程的标准代码，其实在线程的使用中最重要的是线程的同步问题，如果你在使用线程后，发现你的界面经常被卡死，或者无法显示出来，显示混乱，你的使用的变量值老是不按预想的变化，结果往往出乎意料，那么你很有可能是忽略了线程同步的问题。当有多个线程的时候，经常需要去同步这些线程以访问同一个数据或资源。例如，假设有一个程序，其中一个线程用于把文件读到内存，而另一个线...
弄个多线程老是报地址错误的错。。汗Σ( ° △ °|||)︴。。弄了半天才发现create的时候错了。。居然直接用hthread.create(False)。。。尼玛hthread这个都没赋值的。。下面贴代码，如何用Tthread创建多线程。unit gateServer;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls, ScktComp,IDHttp,StrUtils,HttpApp;typeAutoGateThread = class(TThread)protected...
在了解多线程之前我们先了解一下进程和线程的关系一个程序至少有一个主进程,一个进程至少有一个线程。为了保证线程的安全性请大家看看下面介绍 Delphi多线程同步的一些处理方案大家可以参考:http://www.cr173.com/html/16747_1.html主线程又程为UI线程。进程和线程的主要差别在于它们是不同的操作系统资源管理方式。进程有独立的地址空间，一个进程崩溃后，在保护模式下不会对其它进程产生影响，而线程只是一个进程中的不同执行路径...
前几日，调试一BUG，过程先不说，最后调试到MM，即Debug dcu，然后进入到GetMem.inc中的Get/FreeMem函数处后，出现AV。 然后一通找。。。郁闷了N天，后来发现将MM切换到QMM后，一切正常，然后再切回原MM，BUG出现。。。 按经验，此类问题一般由于线程未有锁保护引起，但就是没找到原因所在。 好吧，也不怎么滴，突然想起IsMultiThread变量，想起MM的Get/Free/Realloc都需要这个玩意进行保护，而VCL中，只有一个地方对这变量进...
之前学习了用API实现，让我们再学习下用DELPHI的TThread类。先新建一个普通的工程，再新建一个线程类File>>New>>Othre>>Delphi File>Thread Object，取个名字，DELPHI会自动生成一个单元，我们只需往里简单添加功能代码，和在要使用的单元里实例引用即可。为了节省篇幅，现把TMyThread类集成主窗体单元里，在窗体单元里声明类也是可以的。例：用工作线程在窗体输出0~500000的数字。 1 unit Unit1;2 3 interface4 5 uses6 Windows...
Delphi中多线程用消息实现VCL数据同步显示Lanno Ckeeke 2006-5-12概述：delphi中严格区分主线程和子主线程，主线程负责GUI的更新，子线程负责数据运算，当数据运行完毕后，子线程可以向主线程式发送消息，以便通知其将VCL中的数据更新。实现：关键在于消息的发送及接收。在消息结构Tmessage中wParam和lParam类型为Longint，而指针类型也定义为Longint，可以通过此指针来传递自己所感兴趣的数据。如传递字符数组：数组定义：const M...
http://www.cnblogs.com/azhqiang/p/3957351.html 原文：http://www.cnblogs.com/Marvel775/p/5150213.html
delphi 自带的Timer控件，使用方便，但它的 OnTimer 事件是在主线程中引发的。如果在事件中执行较耗时的代码，会引起主界面假死。故实现一个线程的Timer就有必要了。TThreadTimer 基于 TSimpleThread 继承而来。本例源码下载unit uThreadTimer;interfaceusesuSimpleThread;typeTThreadTimer = class; // 提前申明 TThreadTimer 是一个类TOnThreadTimer = procedure(Sender: TThreadTimer) ofobject;// 此处就可以引用 TThreadTimer...
转载自：https://www.cnblogs.com/xumenger/p/4440620.html TThread在Classes单元里的声明如下123456789101112131415161718192021222324252627282930313233343536type TThread = class private FHandle: THandle; FThreadID: THandle; FTerminated: Boolean; FSuspended: Boolean; FFreeOnTerminate: Boolean; FFinished: Boolean; FReturnValue: Integer; FOnterm...
上篇博客中提出了一个问题：怎么结束一个定时循环执行的线程，并给出了一个解决方案，但是又出现了一个问题，详细去参考上一篇博客。 然后出去撒了个尿，突然脑子里出现了一个想法（看来工作和思考久了，出去走走，哪怕是去撒个尿，都可能尿出火花，所以工作和学习的时常根本就不等同于效率灵感不是在那里拼命工作、想就能出来的），需要结合上上篇博客：关于FreeOnTerminate的知识上面所给出的第一种解决方案：线程（Execute）...
1、CoInitialize 没有调用（CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitialize was not called"例外。 2、画布不允许绘画（Canvas does not allow drawing）；所以，必须通过Synchronize过程来通知主线程访问主窗体上的任何控件。 3、不能使用主ADO连接（Main TADoConnection cannot be used!）；所以，线程中不能使用主线程中TADOC...
开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.先试试这个: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to 500000 do begin Canvas.TextOut(10, 10, IntToStr(i)); end; end;View Code 上面程序运行时, 我们的窗体基本是 "死" 的, 可以在你在程序运行期间拖动窗体试试... Delphi 为我们提供了一个简单的办法(Application.ProcessMessages)来解决这个问...