unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
ProgressBar1: TProgressBar;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure threadtest(strtest:string);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.threadtest(strtest:string);
begin
showmessage(strtest);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
threadtest('str');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ProgressBar1.Max do
begin
Label1.Caption := '主线程运行中';
ProgressBar1.Position := i;
Application.ProcessMessages;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
progressbar1.Max := 1000000;
end;
end.
-
等级
本版专家分：0结帖率 0% -
如何将创建带参数的多线程，麻烦能将TForm1.threadtest改变成一个带参数的多线程，利用tthread类
展开阅读全文
-
等级
本版专家分：0
-
跪求大神帮忙，这个问题十分纠结。。。。。。。。。。。。。。。。。。。。。。。
-
等级
本版专家分：0
-
初学delphi，实在不懂如何修改。。。
-
等级
本版专家分：0
-
upupupupup
-
等级
本版专家分：0
-
这是一个值得思考的问题。。。。
-
等级
本版专家分：0
-
似乎并不怎么懂啊
-
等级
本版专家分：2764勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
第一个办法是在加入到线程类析构函数中，有局限性，适合创建线程不挂起线程马上获取你传递的参数才能正常运行的情况，第二种是在线程类的publish域添加property 。使用时，创建线程对象后，将参数传入到property中去。提示：不要使线程去挂起来同步线程，应该使用同步技术去同步线程。
-
等级
本版专家分：0
-
具体该怎么操作呢，刚学delphi，并不知道该怎么处理？
-
等级
本版专家分：1759 -
TMyThread=class(TThread)
FParam : string;
constructor Create(AParam: string);
end;
constructor TMyThread.Create(AParam: string);
begin
FParam:=AParam;
inherited Create(True);
end;
-
等级
本版专家分：5
-
TThread类。。。害了多少人，用CreateThread做，简单实用，原版API，不加任何添加防腐剂。
相关API:
CreateThread
TerminateThread
WaitForSingleObject
InitializeCriticalSection
DeleteCriticalSection
EnterCriticalSection
LeaveCriticalSection
-
等级
本版专家分：50583勋章
-
- 签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
-
-
红花
2018年11月 Delphi大版内专家分月排行榜第一
2018年5月 Delphi大版内专家分月排行榜第一
2018年2月 Delphi大版内专家分月排行榜第一
2018年1月 Delphi大版内专家分月排行榜第一
2017年12月 Delphi大版内专家分月排行榜第一
2017年8月 Delphi大版内专家分月排行榜第一
2017年7月 Delphi大版内专家分月排行榜第一
2017年5月 Delphi大版内专家分月排行榜第一
2017年3月 Delphi大版内专家分月排行榜第一
2017年2月 Delphi大版内专家分月排行榜第一
2016年12月 Delphi大版内专家分月排行榜第一
2016年11月 Delphi大版内专家分月排行榜第一
2016年10月 Delphi大版内专家分月排行榜第一
2016年9月 Delphi大版内专家分月排行榜第一
2016年8月 Delphi大版内专家分月排行榜第一
2016年7月 Delphi大版内专家分月排行榜第一
2016年6月 Delphi大版内专家分月排行榜第一
2016年5月 Delphi大版内专家分月排行榜第一
2016年4月 Delphi大版内专家分月排行榜第一
2016年3月 Delphi大版内专家分月排行榜第一
2016年2月 Delphi大版内专家分月排行榜第一
2016年1月 Delphi大版内专家分月排行榜第一
2015年12月 Delphi大版内专家分月排行榜第一
2015年11月 Delphi大版内专家分月排行榜第一
2015年10月 Delphi大版内专家分月排行榜第一
2015年9月 Delphi大版内专家分月排行榜第一
2015年8月 Delphi大版内专家分月排行榜第一
2015年7月 Delphi大版内专家分月排行榜第一
2015年6月 Delphi大版内专家分月排行榜第一
2015年5月 Delphi大版内专家分月排行榜第一
2015年4月 Delphi大版内专家分月排行榜第一
2015年3月 Delphi大版内专家分月排行榜第一
2015年2月 Delphi大版内专家分月排行榜第一
2015年1月 Delphi大版内专家分月排行榜第一
2014年12月 Delphi大版内专家分月排行榜第一
2014年11月 Delphi大版内专家分月排行榜第一
-
-
黄花
2017年11月 Delphi大版内专家分月排行榜第二
2017年4月 Delphi大版内专家分月排行榜第二
2017年1月 Delphi大版内专家分月排行榜第二
2014年10月 Delphi大版内专家分月排行榜第二
2014年9月 Delphi大版内专家分月排行榜第二
-
-
你的问题，提醒一下：
一、不要使用API的线程，直接使用Delphi年代的线程类Tthread非常方便。它已经封闭必要的方法。
二、在线程中，不要使用For循环，它不便中止。建议使用Repeat循环，设置一全局变量ThreadEnd，专用中途中止线程。
三、在procedure TThread1.Execute中，是线程中执行的代码，只要代码执行完毕，线程自动终止，释放占用内存。
下面是对你的代码进行修改的源码，仅供参考：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TThread1 = class(Tthread)
protected
procedure Execute;override;
end;
type
TForm1 = class(TForm)
Button1: TButton;
ProgressBar1: TProgressBar;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
ThreadEnd:boolean;
implementation
{$R *.dfm}
procedure TThread1.Execute; // 线程执行
var
I: Integer;
begin
i:=0;
ThreadEnd:=False;
FreeOnTerminate:=true;
Repeat
i:=i+1;
Form1.ProgressBar1.Position := i;
Application.ProcessMessages;
until (I>=Form1.ProgressBar1.Max) or ThreadEnd;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
progressbar1.Max := 100000;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MyThread:TThread1;
begin
MyThread:=TThread1.Create(False); // 创建线程并执行线程
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ThreadEnd:=True; // 中止线程
end;
end.
- access读取EXCEL文件,并根据动态生成表，完成报表的导入
Option Compare DatabasePublic sheetid As String '报表IDPublic temp As String '获取年月时分秒Public tmpI As Integer '对应EXCEL行Public tmpJ As Integer '对应EXCEL列Public XlsApp As ObjectPublic ...
- access vba动态创建控件
在VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。在vb，excel当中，使用Control的add方法可以实现，然而，在...
- Access vba动态创建ActiveX控件
在Access VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。在vb，excel当中，使用Control的add方法可以实现，...
- ACCESS中通过VBA动态修改传递查询的SQL串
被人问到一个这样的问题:在ACCESS中创建了窗体,在窗体内的文本框中输入参数,传递给SQLserver的存储过程中,返回结果集,生成报表.已知可以通过ACCESS的传递查询执行SQL的存储过程,问:如何把窗体中输入的参数传入到动态...
- Access基础教程--第八章 使用VBA编程
本章内容 ◆ VBA编程基础◆ 创建和设计VBA程序◆ VBA程序调试与运行 一、VBA编程基础知识 在执行简单的操作时，宏可以完成，如窗体的打开与关闭、工具栏的显示和隐藏等。对于稍复杂一些的任务，则可用Visual ...
- VBA通用ADO数据访问模型
它允许开发人员编写访问数据的代码而不用关心数据库是如何实现的，而只用关心数据库的连接。由于ADO是基于COM实现的，所以基本上任何语言都可以使用这种数据访问技术，VBA也不例外。 一、ADO对象模型 ADO对象库中...
- VBA与数据库
1-1 利用DAO创建数据库和数据表 7 1-2 利用ADOX创建数据库和数据表： 8 1-3 利用SQL语句创建数据库和数据表 9 1-4 在已有的数据库中创建数据表（DAO） 10 1-5 在已有的数据库中创建数据表（ADOX） 12 1-6 在已有的...
- Access+2000中文版高级编程
11.4 用动态列创建交叉表查询的报表 320 11.4.1 报表使用的按窗体查询 321 11.4.2 报表使用的交叉表查询 323 11.4.3 DynamicColumnsExample报表 325 11.5 使用多项选择列表框选择多项打印主题 329 11.5.1 ...
- VBA中用ADO访问SQL SERVER数据库常用方法
Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，...
- 如何向ACCESS数据库上传并显示图片
在动态网站制做过程中，需要上传图片、显示图片，上传的图片要能够保存在数据库中，一般小型网站只支持ACCESS数据库，如何上传图片，将其保存在数据库中并将其显示出来，是数据库+ASP应用技术之一。许多书籍只介绍了...
- VBA-将数据分页显示（listview）
2.要想作出分页的效果，必须要用listview控件实现，一般来说在窗体工具箱中并没有这个控件，所以我们要自己添加，打开窗体工具箱，在空白处右键-->附加控件-->选择microsoft listview control,version...
- Access 2000数据库系统设计(PDF)---016
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- VBA基础知识
VB、VBA、Microsoft office、excel、access、PowerPoint1.VBA的基本概念2 数据类型2.1 VBA基本数据类型2.2 VBA自定义的数据类型3 VBA常量3.1 VBA系统定义常量3.2 VBA固有常量3.2 VBA符号常量4 变量4.1 声明4.1 赋值5...
- VBA，我的第一门语言（带你走进VBA的世界）
VBA是我正式学习的第一门计算机语言，也是一门我感情很深的计算机语言。它带我领略了编程的乐趣，让我相信一切皆有可能，一切皆可实现。它也给我带来的很多乐趣，很多工作机会。让我给你介绍一下它。 什么是VBA ...
- Access 2000数据库系统设计(PDF)---001
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- Access 2000数据库系统设计(PDF)---031
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- VBA中用ADO访问SQL SERVER数据库常用方法
VBA中用ADO访问SQL数据库常用方法 Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset '创建一个 Recordset 实例，不使用...
- Access 2000数据库系统设计(PDF)---011
2069.3.4 计算查询字段值的表达式 2109.3.5 表达式的其他用途 2129.4 疑难解答 2129.5 现实世界—Access表达式代数学 212第10章 创建多表查询和交叉表查询 21410.1 介绍表的连接 21410.2 连接表以创建多表查询 ...
- Access数据库小结
1、查询Access中的表名称 select name from MSysObjects where type=1 and flags=0 MSysObjects 2、几个查询结果Union All时，当使用了无表查询时，提示“查询输入必须包含至少一个表或查询” 也就是说在...
- 征服Excel VBA：让你工作效率倍增的239个实用技巧
详细介绍了Excel VBA 的使用技巧，主要内容包括：宏的应用技巧、VBE 使用技巧、程序控制流程、Range 对象操作、Worksheet 对象操作、Workbook 对象操作、Application 对象操作、Window 对象操作、Chart 对象操作、...
- VBA进阶-使用ADO制作数据管理系统的知识结构
使用ADO制作数据管理系统的知识结构 ADO介绍 ActiveX Data Objects (ADO) is a high-level, easy-to-use interface to OLE DB. OLE DB is a low-level, high-performance interface to a variety ...
- VBA入门系列讲座
这是一个vba教程，大家有没有更好的，给看一下不知道怎样贴文件，只好这样发了VBA教程1.1VBA是什么 直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的...
- VBA中ADO常用方法
VBA中ADO常用方法 ADO常用方法 准备工作 ======== Dim conn As New ADODB.Connection '创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB....
- ADO 与 临时表
在这个论坛里第一次接触到ADO，对通过用ADO来获取数据库的数据，对我日常的工作来说真是太有用了，因此慢慢地开始编写一些ADO读取...连接数据库也有多种方法，各种连接字符串又是什么涵义等，这些问题一直困惑着我，对
- excel vba 数据分析
VBA(Visual Basic for Application)是Microsoft Office系列软件的内置编程语言，其语法结构与Visual Basic编程语言互相兼容，采用的是面向对象的编程机制和可视化的编程环境。 第一节 标识符 一．定义 标识符是一...
- Excel VBA 学习总结 - 通用ADO数据访问模型
Excel VBA 学习总结 - 通用ADO数据访问模型 ADO是基于OLE DB的数据访问技术。它不直接与数据交互，而是把这个任务交给了OLE DB，这么做带来了相当好的可扩展性和适应性。它提供了编程语言和统一数据访问方式；它...
- VBA编程常用语句(转载）
1、Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不...2、On Error Resume Next '忽略错误继续执行 VBA代码,避免出现错误消息...
- 使用SQLite数据库和Access数据库的一些经验总结
在我的《Winform开发框架》中，可使用多种数据库作为程序的数据源，除了常规的Oracle数据库、SqlServer、MySql数据库，其中还包括了SQLite数据库、Access数据库，后两个数据库都是在单机版程序中常用到的数据库，...
- 如何使用 VBA 和 Office Developer 创建 Office COM 外接程序
组件对象模型 (COM) 外接程序提供一种方法，该方法可以将通用代码集中到一个已编译的动态链接库 (DLL) 中，您可以很容易地在任何 Office 应用程序中实现该库（例如，您可以从 Excel、Word 和 Microsoft Access 访问 ...
- Excel 2003 VBA编程参考
Excel 2003 VBA编程参考关于作者Paul KimmelPaul Kimmel于1990年创立了Software Conceptions公司，并从那时开始设计和创建软件以及编写计算机图书。Paul Kimmel是几本关于VBA、VB、VB.NET、C#、Delphi和C++书籍的...