delphi 多线程（delphi怎样使用多线程写入ACCESS数据库）

本文目录

• delphi怎样使用多线程写入ACCESS数据库
• 请教Delphi 多线程切换输入法后程序假死了
• Delphi中如何多线程操作数据库中的数据表
• delphi 多线程中如何得到线程句柄
• delphi多线程进度显示问题
• Delphi 7 多线程处理,同步,互斥，互斥信号量,消息循环
• delphi中如何实现多线程socket通信时
• delphi 怎么实现多线程的同步
• delphi多线程怎么解决数据处理速度跟不上数据接收的速度
• Delphi怎样实现多线程

delphi怎样使用多线程写入ACCESS数据库

你用两个ADO连接组件,一个连接SQL,一个连接ACCESS;然后用两个ADOdataset组件,一个与SQLADO连接组件连接,另外一个与ACCESS的链接组件连接,各自打开要读写的表,然后用一个FOR循环,读写,这和从界面上录入数据然后保存,没有什么两样.

请教Delphi 多线程切换输入法后程序假死了

function
TCFADODBStorage.OpenConnection:
Boolean;
//线程里打开ADOConnection,在XP下切换输入法程序会死掉
//原因:ADO自动创建一个ADODB.AsyncEventMessenger窗口,然后会有一个对应的IME窗口,但线程里没有消息循环
//
XP下输入法切换时会SendMessage给IME窗口并等待返回,IME窗口并不会处理消息,造成死锁
//这个函数把线程里的IME窗口释放掉,切换输入法时就不会有消息过来了
procedure
_FreeIMEWindow;
const
IME_WINDOW_CLASS
=
’IME’;
IME_WINDOW_TEXT
=
’Default
IME’;
var
h
:
HWND;
pid
:
DWORD;
dh
:
HWND;
begin
h
:=
FindWindow(IME_WINDOW_CLASS,
IME_WINDOW_TEXT);
while
IsWindow(h)
do
begin
if
GetWindowThreadProcessId(h,
pid)
=
GetCurrentThreadId
then
dh
:=
h
else
dh
:=
0;
h
:=
FindWindowEx(0,
h,
IME_WINDOW_CLASS,
IME_WINDOW_TEXT);
if
dh
《》
0
then
DestroyWindow(dh);
end;
end;begin
try
FConnection.ConnectionString
:=
ConnectionString;
FConnection.Connected
:=
True;
if
GetCurrentThreadId
《》
Global.MainThreadID{全局的主线程ID,如果是主线程,不需要Free}
then
_FreeIMEWindow;
except
on
E:
Exception
do
FLastErrorMessage
:=
e.Message;
end;
Result
:=
FConnection.Connected;end;
线程中要加入消息条件退出语句，这样才不能无限循环（假死）。
***隐藏网址***

Delphi中如何多线程操作数据库中的数据表

1。通过线程的互斥来同步操作数据库 2。数据库采用事务处理表中的数据 3。采用共享方式打开数据库，不是以独占方式打开数据库 建立一个mysql连接表加上一个临界区，表结点是这样的（mysqlcon,bool)，根据实际情况定大校我用的是10个连接。

delphi 多线程中如何得到线程句柄

如果你的多线程是用TThread实现的，属性ThreadID可以得到指定线程的句柄如果你是通过BeginThread运行的线程函数，可以通过返回值ThreadID得到BeginThread(SecurityAttributes:
Pointer;
StackSize:
LongWord;
ThreadFunc:
TThreadFunc;
Parameter:
Pointer;
CreationFlags:
LongWord;
var
ThreadId:
LongWord):
Integer;如果你是通过CreateThread创建的，也可以通过返回值ThreadID得到HANDLE
CreateThread(
LPSECURITY_ATTRIBUTES
lpThreadAttributes,
//
pointer
to
thread
security
attributes
DWORD
dwStackSize,
//
initial
thread
stack
size,
in
bytes
LPTHREAD_START_ROUTINE
lpStartAddress,
//
pointer
to
thread
function
LPVOID
lpParameter,
//
argument
for
new
thread
DWORD
dwCreationFlags,
//
creation
flags
LPDWORD
lpThreadId
//
pointer
to
returned
thread
identifier
);
如果想得到当前运行的线程的句柄用楼上的方法

delphi多线程进度显示问题

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Gauges;
const msg_update = WM_USER + 1;
type
TForm1 = class(TForm)
Gauge1: TGauge;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure update_msg(var msg:TMessage); message msg_update;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TForm1 }
type
TUpdateThread = class(TThread)
public
formHandle:THandle;
procedure Execute;override;
end;
procedure TForm1.update_msg(var msg: TMessage);
begin
if Gauge1.Progress 》= 100 then
Gauge1.Progress := 0
else
Gauge1.Progress := Gauge1.Progress + msg.WParam;
end;
{ TUpdateThread }
procedure TUpdateThread.Execute;
begin
inherited;
while(not Terminated or Suspended) do
begin
Sleep(500);
PostMessage(formHandle,msg_update,1,0)
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
test:TUpdateThread;
begin
test := TUpdateThread.Create(True);
test.formHandle := self.Handle;
test.Resume;
Button1.Enabled := False;
end;
end.
通过句柄，发消息来处理即可。

Delphi 7 多线程处理,同步,互斥，互斥信号量,消息循环

首先你要搞清楚你的这个计算能够并行计算不，如果是一个计算输入必须等待另外一个计算的输出，那么就要考虑这个多线程的必要了。
在主线程中访问线程中的数据，用消息是最好的，但是不建议在主线程修改线程中的数据，仅限于读取。
用消息比较安全，用同步方式有可能造成死机的问题。

delphi中如何实现多线程socket通信时

我再说具体些，在delphi中实现收集socket通信时，应用TserverSocket类做办事器端，个中该类的ServerType属性有两个选择，分别决定办事器端是为每个客户request生成一个线程(选stThreadBlocking)照样所有的客户request都在一个线程中处理(选stNonBlocking),当我选择stThreadBlocking用线程方法时，客户端发送信息时，办事器端不克不及激活OnClientRead事宜，而被选择非线程方法时则可以实现。

delphi 怎么实现多线程的同步

多线程同步
　　"临界区"(CriticalSection): 当把一段代码放入一个临界区, 线程执行到临界区时就独占了, 让其他也要执行此代码的线程先等等;
　　使用格式如下:
var CS: TRTLCriticalSection;   {声明一个 TRTLCriticalSection 结构类型变量; 它应该是全局的} 
InitializeCriticalSection(CS); {初始化} 
EnterCriticalSection(CS);      {开始: 轮到我了其他线程走开} 
LeaveCriticalSection(CS);      {结束: 其他线程可以来了} 
DeleteCriticalSection(CS);     {删除: 注意不能过早删除} 
多线程同步示例
　　
 1 unit Unit1; 
 2  
 3 interface 
 4  
 5 uses 
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
 7   Dialogs, StdCtrls; 
 8  
 9 type 
10   TForm1 = class(TForm) 
11     ListBox1: TListBox; 
12     Button1: TButton; 
13     procedure FormCreate(Sender: TObject); 
14     procedure FormDestroy(Sender: TObject); 
15     procedure Button1Click(Sender: TObject); 
16   end; 
17  
18 var 
19   Form1: TForm1; 
20  
21 implementation 
22  
23 {$R *.dfm} 
24  
25 var 
26   CS: TRTLCriticalSection; 
27  
28 function MyThreadFun(p: Pointer): DWORD; stdcall; 
29 var 
30   i: Integer; 
31 begin 
32   EnterCriticalSection(CS); 
33   for i := 0 to 99 do Form1.ListBox1.Items.Add(IntToStr(i)); 
34   LeaveCriticalSection(CS); 
35   Result := 0; 
36 end; 
37  
38 procedure TForm1.Button1Click(Sender: TObject); 
39 var 
40   ID: DWORD; 
41 begin 
42   CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); 
43   CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); 
44   CreateThread(nil, 0, @MyThreadFun, nil, 0, ID); 
45 end; 
46  
47 procedure TForm1.FormCreate(Sender: TObject); 
48 begin 
49   ListBox1.Align := alLeft; 
50   InitializeCriticalSection(CS); 
51 end; 
52  
53 procedure TForm1.FormDestroy(Sender: TObject); 
54 begin 
55   DeleteCriticalSection(CS); 
56 end; 
57  
58 end.

delphi多线程怎么解决数据处理速度跟不上数据接收的速度

这种问题必须要使用多线程处理，
你可以用线程池来处理，这个开销比新创建线程要小一些，需要你自己写一个线程池处理（重点是可以快速取到空闲线程)，
关于你自己的问题
1 接收事件触发接收过程，进行数据预处理
我不知道你的预处理是否是必须的，而且必须是在线程处理之前完成，
我认为接收事件触发接收过程，收到数据马上放入主线程（也就是我说的线程池管理线程），之后你的进程继续等待下一波数据，而子线程开始处理数据。
2 数据预处理后，发出自定义事件或者消息触发数据解算线程，解算最大耗时200-250ms，最小100ms
没必要定义什么自定义消息，你可以在主线程中，等待子线程完成计算，然后做最后的处理。
3 解算后的数据发出，其时间包括在2中的最大耗时时间内
计算后的数据需要发出？ 那一样的道理，按照顺序发出即可。

Delphi怎样实现多线程

多线程其实非常简单，DELPHI有多线程的类，你添加即可使用，但是我喜欢自己调用API，方法如下：
定义一个函数或者过程，这个函数就是线程要执行的内容，然后调用API就可以不断创建线程，每个线程都单独的执行那个函数，执行完毕线程就自动关闭，下面是我程序里面的部分代码：
{下面这个就是线程过程，我的线程传递一个参数，建立的SOCKET}
procedure ClientThread(var sock:TSOCKET); stdcall;
var ……;
begin
……
end;
{下面是主程序建立服务，等待连接，连接后调用线程进行处理的代码}
repeat
iAddrSize := sizeof(client);
sClient := accept(sListen, @client, @iAddrSize);
if sClient=INVALID_SOCKET then
begin
SocketErrorMsg(sClient, ’accept() fail’);
break;
end;
writeln(’Accepted client: ’,inet_ntoa(client.sin_addr),’:’,ntohs(client.sin_port),’ sock=’,sClient);
hThread := CreateThread(nil, $1000, @ClientThread, @sClient, 0, dwThreadId);
if hThread=0 then
begin
writeln(’CreateThread() fail:’,GetLastError);
break;
end;
CloseHandle(hThread);
until false;