此处为thread部分代码
主窗体部分只有三个控件，一个是BUTTON，一个CHART，一个CHECKBOX，
其中BUTTON的CLICK事件中创建了一个p8696therad的线程，
procedure p8696therad.giveseries;
begin
form1.series1.add(strtofloat(strvalue)); ///绘图
form1.series1.RefreshSeries;
end;
procedure P8696therad.Execute;
var deviceID:word;
hdevice:integer; //设备句柄
breturnstatus:boolean; //返回状态值
readsizewords:integer; //接收字符串长度
nchannelcount:integer; //通道个数
inuserregion :array[0..1024] of word; //接收数据缓冲区数
VoltageValue:array[0..100] of Single; //将AD转换为电压值
VoltageVal:single;
para:PCI8696_PARA_AD;
retsizewords:integer;
chStrValue:Array[0..50] of char;
i:integer;
begin
deviceid:=0;
hdevice:=pci8696_createdevice(deviceid); //创建设备
para.FirstChannel :=1;
para.LastChannel :=1;
para.Frequency :=1000; //1000采集频率
para.ADMode := PCI8696_ADMODE_SEQUENCE; //连续采集
para.TriggerMode := PCI8696_TRIGMODE_SOFT ; //使用内部触发，
para.TriggerType := PCI8696_TRIGTYPE_EDGE; //边沿触发类型
para.TriggerDir :=PCI8696_TRIGDIR_POSITIVE; //正向触发
nchannelcount:=1; //通道数为1
para.ClockSource :=PCI8696_CLOCKSRC_IN; //内部时钟
para.GroundingMode := PCI8696_GNDMODE_SE; //模拟输入量接地方式单端
para.InputRange := PCI8696_INPUT_0_P5000mV; //模拟量使用输入范围0~5000mv
para.Gains :=PCI8696_GAINS_1MULT ; //1倍增益
breturnstatus:=pci8696_initdeviceproad(hdevice,@para);
if breturnstatus=false then
ShowMessage('设备初始化失败！');
readsizewords:=1000 ;
BRETURNSTATUS:=pci8696_startDevicePROAD(HDEVICE);
if breturnstatus=false then
showmessage('设备启动失败！');
form1.Chart1.Locked :=true;
while form1.CheckBox1.Checked do
begin
pci8696_readdeviceproad_npt(hdevice,@inuserregion,readsizewords,@retsizewords);
for i:=0 to retsizewords-1 do
begin
voltageval:=(5000.0/16384)*(inuserregion[i] XOR $2000 AND $3fff);
strvalue:=format('0.00',[voltageval]);
synchronize(giveseries);
end;
end;
form1.chart1.Locked :=false;
pci8696_stopdeviceproad(hdevice);
pci8696_ReleaseDeviceproad(hdevice);
pci8696_releasedevice(hdevice);
end;
