开始研究最重要的多线程读写全局数据了，结合书上的例子，我修改成下面的情况： 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...
弄个多线程老是报地址错误的错。。汗Σ( ° △ °|||)︴。。弄了半天才发现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...
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)来解决这个问...