IC card reading and writing in PowerBulider

Writing-related information management systems, sometimes meet reading and writing-related issues such as external devices, such problems in achieving this kind of functionality PowerBulider is not a difficult task, the relevant external equipment vendors now offer products in basic programming interfaces are provided relevant, after use of these ActiveX controls interface functions, combined with the external function call PowerBulider, can easily achieve the relevant functions to provide read and write IC cards to achieve the following basic code in order to eliminate staff time related to programming external device to write on issues such as fear of
External function declaration:
Subroutine PostPara (long prot, strig syspara) library "lock739.dll" / / pass parameters, the main pass serial information
Function long Reset () library "lock739.dll" / / write reset
Function Boolean OpenCom () library "lock739.dll" / / Open the serial port
Subroutine CloseCom () library "lock739.dll" / / close serial port
Function long ChkCard () library "lock739.dll" / / check card is in place
Function long CmpSc (string sc) library "lock739.dll" / / check password
Function long WriteSc (string sc) library "lock739.dll" / / modify the password encryption card
Function long ReadSc (string inbuff, long sclen) library "lock739.dll" / / degree curve encryption card password
Function long RdDat (long cardtype, long start, long ilen, ref string inbuff) library "lock739.dll" / / reader information
Function long WrDat (long cardtype, long start, long ilen, ref string outbuff) library "lock739.dll" / / write card information
Instance variables:
public string sc = '272272272 '
Write Card function: wf_write (string as_arg1, long al_start, long al_len)
/ * Write the string parameter string as_arg1;
long al_start write position
long al_len write the length of the * /
long l_rtn
if opencom () = false then
messagebox ("prompt", "serial connection failed")
return
end if
l_rtn = chkcard ()
if l_rtn <> 0 then
wf_errormessage (l_rtn)
closecom ()
return
end if
l_rtn = cmpsc (sc) / / sc for the password
if l_rtn <> 0 then
wf_errormessage (l_rtn)
closecom ()
return
end if
l_rtn = wrdat (1, al_start, al_len, as_agr1)
if l_rtn <> 0 then
wf_errormessage (l_rtn)
closecom ()
return
end if
messagebox ("prompt", "write card successfully!")
Card Reader Function: wf_read (string as_arg1, long al_start, long al_len)
/ * Parameter string as_arg1 read information stored string;
long al_start reader into the starting position
the length of long al_len reader * /
long l_rtn
if opencom () = false then
messagebox ("prompt", "serial connection failed")
return
end if
l_rtn = chkcard ()
if l_rtn <> 0 then
wf_errormessage (l_rtn)
closecom ()
return
end if
l_rtn = rddat (1, al_start, al_len, as_agr1)
if l_rtn <> 0 then
wf_errormessage (l_rtn)
closecom ()
return
end if
messagebox ("prompt", "reader success!")
Error function: wf_errormessage (long lerror)
choose case lerror
case 1
messagebox ("prompt", "write error or password error!")
case 2
messagebox ("prompt", "card has been damaged or parameter bounds!")
case 3
messagebox ("prompt", "Please card!")
case 4
messagebox ("prompt", "communication error!")
case else
messagebox ("prompt", "Unknown error!")
end choose
Initialize the card function wf_initialcard (long al_port)
/ * Parameters: long al_port introduced readers to use the serial port * /
psotpara (al_port, "")

The above example code used by the ic card sle4442 encrypted memory card reader for the wb1000 IC card reader
Through the above code example, the communication with external devices, not a very difficult time right? !






Recommended links:



Comment E-Mail List Management



Avi To Mp4 Converter



MSA 1500 How To Link Up With The EVA 4000?



.mkv FILE



Youtube Video To Iphone Store



Youtube to Wii Plus



avc converter



The staffing arrangements in the most appropriate location



Comparison Helpdesk And Remote PC



Rising 2008, accused of dangerous: not Considered extreme?



mp3 to mp4



Youtube to 3GP Software



Trojan horse is how to work



COREL KNOCKOUT Matting Examples Guide (4)