<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<meta http-equiv="Cache-Control" content="no-transform" />
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<script type="text/javascript">
function OnbtnSendCmdClick()
{
var cmd = document.getElementById("edtCmd").value;
if ("" == cmd.trim()) return;
var sResp = UKeyReader.WT_SendCmd_Hex(cmd);
sResp = "\r\nCMD：" + cmd + "\r\nResp：" + sResp + "\r\n";
document.getElementById("txtResp").value += sResp;
}
function OnbtnOpenReaderClick()
{
if (UKeyReader.WT_OpenReader())
{
document.getElementById("txtResp").value += "打开卡机成功！\r\n";
}
else
{
document.getElementById("txtResp").value += "打开卡机失败！\r\n";
}
}
function OnbtnCloseReaderClick()
{
if (UKeyReader.WT_CloseReader())
{
document.getElementById("txtResp").value += "关闭卡机成功！\r\n";
}
else
{
document.getElementById("txtResp").value += "关闭卡机失败！\r\n";
}
}
function OnbtnOpenCardClick()
{
if (UKeyReader.WT_OpenCard())
{
document.getElementById("txtResp").value += "打开卡片成功！\r\n";
}
else
{
document.getElementById("txtResp").value += "打开卡片失败！\r\n";
}
}
function OnbtnCloseCardClick()
{
if (UKeyReader.WT_CloseCard())
{
document.getElementById("txtResp").value += "关闭卡片成功！\r\n";
}
else
{
document.getElementById("txtResp").value += "关闭卡片失败！\r\n";
}
}
</script>
<title>握奇网上充卡机测试DEMO</title>
</head>
<body>
<div>
<OBJECT id=UKeyReader codebase="UKeyReaderWebProj.ocx"
classid="clsid:EFF217F3-491E-4E59-8742-720A2CB473B1" width=0
height=0 align=center hspace=0 vspace=0 />
</div>
<input type="button" id="btnOpenReader" value="打开卡机"
onclick="OnbtnOpenReaderClick()" />
<input type="button" id="btnCloseReader" value="关闭卡机"
onclick="OnbtnCloseReaderClick()" />
<input type="button" id="btnOpenCard" value="打开卡片"
onclick="OnbtnOpenCardClick()" />
<input type="button" id="btnCloseCard" value="关闭卡片"
onclick="OnbtnCloseCardClick()" />
<br><br> UKEYCOS指令 <br><br>
<form align="top" action="return false;">
指令：<input type=text size=100 id="edtCmd" name="edtCmd" value="00A40000023F00">
<input type="button" name="btnSendCmd" value="发送指令" onclick="OnbtnSendCmdClick()">
<br>
结果：<textarea rows="50" cols="200" id="txtResp" name="txtResp"></textarea>
</form>
</body>
</html>
一个Delphi写的OCX插件及调用样例html
2星 需积分: 34 119 浏览量
2014-10-11
14:38:31
上传
评论 2
收藏 332KB ZIP 举报 
WQ.zip （17个子文件） 
WQ 
HHAPI.pas 2KB WQAPI.pas 862B UKeyReaderWebProj.res 2KB UKeyReaderWebProj.cfg 455B HHReaderImpl.pas 8KB UKeyReaderWebProj.dpr 479B WQReaderImpl.pas 12KB HHReaderImpl.dfm 337B UKeyReaderWebProj.tlb 9KB UKeyReaderWebProj_TLB.pas 27KB UKeyReaderWebProj.dof 3KB WQReaderImpl.dfm 642B bin 卸载插件.bat 33B wdcrwv.dll 128KB UKeyReaderWebProj.ocx 508KB 注册插件.bat 30B
test.html 3KB
评论3
最新资源