Delphi中网络实现线程变量同步

 

   在网络环境下，如何实现不同访问线程的同步。这是例如多网点销票系统，及多客户端网络服务器必须要解决的问题，在此Delphi本身就提供了最为简单有效的同步操作方法，即建立临界代码区。具体方法为：

/////////////全局声明部分///////////////Varte : int64; //计数器，每次加1sss : TCriticalSection; //声明临界区类，建议为全局，这样能保证每次使用时保护的代码段进入唯一的临界区。////////////////主程序创建部分/////////////////procedure TForm1.FormCreate(Sender: TObject);begin te := 0; sss := TCriticalSection.Create; //一开始就创建临界区变量end;

//////////////////主程序退出部分/////////procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin sss.Free; 释放临界区end;

//////////////服务器程序部分//// try sss.Enter; ///代码进入临界区 Result := te; finally te := te+1; sss.Leave; // 代码退出临界区 end;