Question

Delphi怎样实现多线程

看了下书 没看懂

Answer 1

多线程其实非常简单，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;