Borislav,

Thanks for your reply. I will try it out as soon as I get back to the office.

Although I think I have tried initializing the variable lblobFingerPrnt to [] and also to 0h values.

Dennis


>>Hi Everybody,
>>
>>I am tinkering with a fingerprint scanner ActiveX control (Digital Persona).
>>
>>Instantiating, dropping and working with it seems to go on smoothly... till the last event called Done(), where it passes a "Fingerprint Template - FPTemplate" object variable.
>>
>>This is the code I created in the ActiveX control's Done() event:
>>
>>

>>*** ActiveX Control Event ***
>>LPARAMETERS ptemplate
>>
>>LOCAL lblobFingerPrnt, lnResult
>>
>>WAIT WINDOW NOWAIT "Creating Employee Record..." NOCLEAR
>>
>>lnResult = ptemplate.Export( @lblobFingerPrnt )
>>
>>IF lnResult # Er_OK
>>   MESSAGEBOX( "Error in getting Registration Template" )
>>   RETURN
>>ENDIF
>>
>>APPEND BLANK IN employee
>>replace employee.lastname WITH thisform.txtLastname.Value,;
>>        employee.firstname WITH thisform.txtFirstname.Value,;
>>        employee.fingerprnt WITH lblobFingerPrnt
>>
>>WAIT CLEAR
>>

>>
>>I get "Data type mismatch" using the above. Going thru the Debugger, the value of variable lblobFingerPrnt is always .F. and is never updated even when invoking the Export method.
>>
>>This 'ptemplate' object variable, as per it's documentation, has an Export method, like so:
>>
>>

>>Export([out] VARIANT* pVal, [out,retval] AIErrors *pErr)
>>
>>* Exports the template object as a signed blob of bytes.
>>* This may then be saved by the developer in the database of his choice.
>>

>>
>>HELP! Obviously it has something to do with a VARIANT data type. Furthermore, the employee.fingerprnt field is of Blob type. Could this be wrong?
>>
>>Thanks in advance!
>>
>>Happy Holidays! Cheers!
>>
>>Dennis
>
>Try
>

>LOCAL lblobFingerPrnt, lnResult
>
>SET ASSERTS ON
>WAIT WINDOW NOWAIT "Creating Employee Record..." NOCLEAR
>
>lblobFingerPrnt = []
>lnResult        = ptemplate.Export( @lblobFingerPrnt )
>
>ASSERT NOT EMPTY(lblobFingerPrnt)
>IF lnResult # Er_OK
>   MESSAGEBOX( "Error in getting Registration Template" )
>   RETURN
>ENDIF
>
>APPEND BLANK IN employee
>replace lastname   WITH thisform.txtLastname.Value,;
>        firstname  WITH thisform.txtFirstname.Value,;
>        fingerprnt WITH lblobFingerPrnt IN employee
>
>WAIT CLEAR
>