Delphi线程类及在数据采集中的应用