TCriticalSection TMutex TSpinlock TMonitor 直接上图：运行结果如下： 如 代码如下 ： unit Unit5; interface uses System.SysUtils, System.Types, System.UITypes, System.Clas
转载
2021-07-29 16:01:45
583阅读
之前学习了用API实现，让我们再学习下用DELPHI的TThread类。先新建一个普通的工程，再新建一个线程类File>>New>>Othre>>Delphi File>Thread Object，取个名字，DELPHI会自动生成一个单元，我们只需往里简单添加功能代码，和在要使用的单元里实例引用即可。为了节省篇幅，现把TMyThread类集成主窗体单元里，
转载
2024-02-28 13:48:57
305阅读
Q1: 多线程中需避免多个线程同时向全局变量进行写入操作，导致访问冲突问题。A1: 可以通过使用加锁机制（比如：临界区、互斥、信号量）解决此问题。 Q2:多线程中对于结构体和CLASS类型的全局变量是需要进行加临界区机制来实现数据同步A2: 注意：临界区只有在所有的线程都使用它来访问全局内存时才起作用，如果有线程直接调用内存，而不通过临界区，也会造成同时访
转载
2024-05-21 14:51:47
75阅读
function ThreadFunc(P:Pointer):LongInt;stdcall;var i:Integer; dc:HDC; s:string;begin dc := GetDC(Form2.Handle); for i := 0 to 10000 do begin s := IntToStr(i); TextOut(dc,10,10,PChar(s),Length(s)); e
原创
2013-10-30 08:01:28
846阅读
Delphi 安装非常简单，这里以Xe10.2.3作为例子，其它安装方法基本一致，从网上下载安装镜像（有点大，估计有6.1G左右), 用Setup.exe安装，中间用破解获取系列号，然后一路向北，自动完成，安装过程中，路径可以自选，安装包可以选择，其中的Android, IOS,OS 什么的，我没怎么安装，选得少，什么Interbase也可以不要，这是一个数据库，用的少，看个人需要，选得多，体验多
转载
2023-12-31 21:25:00
17阅读
unit uThreadPool;{ aPool.AddRequest(TMyRequest.Create(RequestParam1, RequestParam2, ...)); }interfaceuses Windows, Classes;// 是否记录日志// {$DEFINE NOLOGS Read More
转载
2016-02-25 19:09:00
181阅读
2评论
LockType 锁类型 常数 值 说明 adLockReadOnly 1 只读(默认) adLockPessimistic 2 悲观锁 adLockOptimistic 3 乐观锁 adLockBatchOptimistic 4 乐观批更新 为了实现多个用户同时对同一信息的访问,就出现了锁技术.通
转载
2017-03-05 00:02:00
167阅读
2评论
1.互斥锁 在线程实际运行过程中，我们经常需要多个线程保持同步。这时可以用互斥锁来完成任务。1.1锁的创建 互斥锁可以动态或静态的被创建，可以用宏PTHREAD_MUTEX_INITIALIZER来静态的初始化锁，采用这种方式比较容易理解，互斥锁是pthread_mutex_t的结构体，而这个宏是一个结构常量，如下可以完成静态的初始化锁： pthread_mutex_t mutex =PTHREA
转载
2024-03-16 09:59:04
91阅读
什么是分布式锁？ 控制分布式架构中多个模块访问的优先级要介绍分布式锁，首先要提到与分布式锁相对应的是线程锁、进程锁。线程锁：主要用来给方法、代码块加锁。当某个方法或代码使用锁，在同一时刻仅有一个线程执行该方法或该代码段。线程锁只在同一JVM中有效果，因为线程锁的实现在根本上是依靠线程之间共享内存实现的，比如synchronized是共享对象头，显示锁Lock是共享某个变量（state）。进程锁：为
转载
2023-12-21 16:05:18
49阅读
在使用 Delphi 开发 Android 应用时，创建线程是一个常见任务。本文将详细记录如何在 Delphi Android 上创建线程的过程，包括环境准备、集成步骤、配置详解、实战应用、排错指南和性能优化等各个方面。
## 环境准备
为确保 Delphi 和 Android 的兼容性，首先需要明确技术栈的匹配度。以下是技术栈兼容性的四象限图：
```mermaid
quadrantCha
第三节：设计一个有生命力的工作线程创建一个线程，用完即扔。相信很多初学者都曾这样使用过。频繁创建释放线程，会浪费大量资源的，不科学。 1.如何让多线程能多次被复用？关键是不让代码退出 Execute 这个函数，一旦退出此函数，此线程的生命周期即结束。要做到这一点，就需要在 Execute 中写一个”死循环“。大致如下： procedure TFooThread.Exe
delphi 自带的Timer控件，使用方便，但它的 OnTimer 事件是在主线程中引发的。如果在事件中执行较耗时的代码，会引起主界面假死。故实现一个线程的Timer就有必要了。TThreadTimer 基于 TSimpleThread 继承而来。本例源码下载unit uThreadTimer;interfaceuses uSimpleThread;type TThreadT
转载
2016-07-07 00:02:00
201阅读
2评论
转载
2019-08-23 23:33:00
29阅读
2评论
DuplicateHandle函数可以用来复制线程等。
在一个进程中，这个函数可根据位于不同进程内的现有句柄创建一个新句柄。可以从这两个进程中发出对这个函数的调用。进程必须提供PROCESS_DUP_HANDLE访问权限，否则函数执行不能成功
转载
2012-03-09 20:58:00
68阅读
2评论
多线程程序设计 我们知道，win95或winNT都是“多线程”的操作系统，在DELPHI 2．0中，我们可以充分利用这一特性，编写出“多线程”的应用程序。 对以往在DOS或16位windows下写程序的人来说，“多线程”仍然是陌生的，但如同以前我们从DOS下的单任务过渡到windows3．1下的多任
转载
2019-08-13 13:13:00
400阅读
delphi 自带的Timer控件，使用方便，但它的 OnTimer 事件是在主线程中引发的。 如果在事件中执行较耗时的代码，会引起主界面假死。故实现一个线程的Timer就有必要了。 TThreadTimer 基于 TSimpleThread 继承而来。 本例源码下载
转载
2019-10-27 13:36:00
326阅读
2评论
开始本应该是一篇洋洋洒洒的文字, 不过我还是提倡先做起来, 在尝试中去理解.先试试这个: procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i := 0 to 500000 do begin Canva
转载
2019-08-13 12:55:00
143阅读
2评论
delphi线程demo
原创
2024-09-25 17:28:59
95阅读
# Delphi MySQL 查询线程的实现
在现代软件开发中，尤其是在与数据库的交互时，处理查询的线程化是非常重要的。线程可以帮助提高应用程序的响应性。本文将引导你了解如何在 Delphi 中实现 MySQL 查询的线程，以确保应用程序在查询数据时不会被卡住。
## 流程概览
首先，让我们看看实现“Delphi MySQL 查询线程”的整个流程。以下是步骤的简要表格：
| 步骤 | 描
原创
2024-08-12 06:40:38
31阅读
##线程锁应用importtime,threadingpython中自己加锁了所以用不着！defrun(n):lock.acquire()#获取一把锁globalnumnum+=1lock.release()#释放锁lock=threading.Lock()num=0loot=[]#创建一个空列表（存线程实例）foriinrange(50):t=threading.Thread(target=ru
原创
2018-10-22 22:24:15
2484阅读
