/采集学童指纹
procedure TForm2.ToolButton17Click(Sender: TObject);
var i,len:integer;
Stream1:TStream;
BS: TADOBlobStream;
DS: TDataSource;
strSeriary,strSubarea,strTmp:string;
begin
fillchar(fingercharacter1,512,0);
fillchar(fingercharacter2,512,0);
fillchar(fingertemplate,512,0);
if Combobox6.ItemIndex<> -1 then
USB_DeviceID:=ComboBox6.ItemIndex //0;
else
USB_DeviceID:=0;
if OPenSensor(USB_DeviceID) then
begin
Application.CreateForm(Tf_showwait, f_showwait);
f_showwait.Label1.caption:= '采集指纹图象，请将你登记的手指放于传感器上！';
f_showwait.ShowModal;
application.ProcessMessages;
sleep(1200);
if not GetFingerCharacter(@FingerImage[0],@FingerCharacter1[0]) then
begin
showmessage('生成指纹特征出错！');

......

//增加新生
procedure TForm2.BtnAddStd1Click(Sender: TObject);
var str:string;
begin
dbmodule.ADOQuery1.SQL.Clear;
dbmodule.ADOQuery1.SQL.Add('select * from fingerinfo');
dbmodule.ADOQuery1.Open;
if (dbmodule.ADOQuery1.RecordCount>0) and (combobox2.ItemIndex=-1) then
begin
dbmodule.ADOQuery1.Last;
numbers:=dbmodule.ADOQuery1.fieldbyname('Seriary').AsInteger+1;
end ;

try
Application.CreateForm(TFrm_Finger, Frm_Finger);
Frm_Finger.Singleness:=true;
Frm_Finger.SpinEdit2.MaxValue:=12;
Frm_Finger.SpinEdit2.Value:=3;
Frm_Finger.ShowModal; //采集指纹和照片
application.ProcessMessages;
finally
// Free;
end;

......

USB_DeviceID:=0;
isOpenFingerDev:=OpenSensor(USB_DeviceID);
if not isOpenFingerDev then
MESSAGEBOX(HANDLE,pchar('未找到指纹采集仪'),pchar('打开采集仪'),MB_OK);
end;

Application.CreateForm(Tf_showwait, f_showwait);
f_showwait.Label1.caption:= '采集指纹图象，请将你登记的手指放于传感器上！';
f_showwait.ShowModal;