帮助 - 保存DigitaPersona模板文件。请参阅示例代码

DELPHI 5用于保存DigitaPersona模板序列数据的样本到DBASE4 DBF文件。所保存的模板的帮助 - 保存DigitaPersona模板文件。请参阅示例代码

procedure TFormEnroll.DPFPEnrollmentControl1Enroll(Sender: TObject; 
    lFingerMask: Integer; const pTemplate, pStatus: IDispatch); 
var 
    MMask : Integer; 
    Template : IDispatch; 
    MTempStr : OleVariant; 

    lByteArray: Variant; 
    lArrayPointer: Pointer; 
    lStr: AnsiString; 
    DPFPTemplate: TDPFPTemplate; 
    aRawData : Variant; 
begin 
    aRawData := pTemplate; 
    lStr := aRawData.Serialize; 
    MMask := lFingerMask; 
    if lStr = null then 
    StatusBar.Panels.Items[0].Text := 'The fingerprint TEMPLATE is empty! + Mask=' + IntToStr(MMask) 
    else 
    StatusBar.Panels.Items[0].Text := 'The fingerprint TEMPLATE has something! + Mask=' + IntToStr(MMask); 
    MMsg := lStr; 
    MLen := Length(MMsg); 
    EditSerialData.Text := MMsg; 
    MemoSerialData.Lines.Text := MMsg; 
    MemoSerialData2.Lines.Text := MMsg; 
    EditLenSerialData.Text := IntToStr(MLen); 
    EditFingerMask.Text := IntToStr(DPFPEnrollmentControl1.EnrolledFingersMask); 
    //Update database - Take to separate save button 
    DMForm.Finger.First; 
    if DMForm.Finger.State in [dsEdit, dsInsert] then 
    // do nothing 
    else 
    DMForm.Finger.Edit; 
    DMForm.FingerUSERNAME.Value := 'Testing '; 
    DMForm.Finger.Post; 
    DMForm.Finger.Edit; 
    DMForm.FingerUSERNAME.Value := 'Testing ' + IntToStr(DMForm.FingerFINGERID.Value); 
    DMForm.FingerFINGERTEMP.Value := MMsg; 
    DMForm.FingerEnrolledFingerMask.Value := IntToStr(DPFPEnrollmentControl1.EnrolledFingersMask); 
    DMForm.FingerFingerSerialData.Value := MMsg; 
    DMForm.Finger.Post; 
end;

例STRING =“2 B ??????????????????????????????? ??????????????????????õ??????????????????????????? ???????? + ____ [?????????????????? V ?????????????? ?????????????????????????????????????????????????? 9 ??????????Ò?????????????????????????????????????? ???????????????????????????? | ????????????????????? ?????????????????????????????????????????????????? ????????????????????????????????Ĵ????????????????? ?????Ø???????????????????????????????????????????? ???????????? U·???????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????＃???? ?????????????????????????????????????????????????? ??? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????”

这是我们期待的结果吗？这是一个可行的模板？您可以解释（aRawData：= pTemplate;）作为变量的'aRawData'与作为调度变量的'pTemplate;''的相互作用。我在写道上吗？

来源

2010-11-02 Njoroge Njiraini