帮忙将下面代码转换为 delphi

问题描述

PrivateDeclareFunctionInitIDCardLib"IDCard.dll"(ByReflpUserIdAsByte,ByValnTypeAsInteger,ByVallpDirectoryAsString)AsInteger'加载识别核心PrivateSubBtnLoadKernal_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnLoadKernal.ClickIfm_bIsInitSuccess=TrueThenResultTextBox.Text="识别核心已成功加载"ExitSubEndIfDimnRetAsIntegerDimstrTmpAsByte()strTmp=System.Text.Encoding.Unicode.GetBytes(UserID.Text)'初始化识别核心nRet=InitIDCard(strTmp(0),0,vbNullString)IfnRet=0ThenResultTextBox.Text="加载识别核心成功"m_bIsInitSuccess=TrueElseResultTextBox.Text="初始化识别核心失败"&Str(nRet)m_bIsInitSuccess=FalseEndIfEndSub

解决方案

解决方案二：
该回复于2012-05-10 09:19:28被版主删除
解决方案三：
引用dll接口functionInitIDCard(varlpUserId:byte;nType:integer;lpDirectory:PChar):integer;其他的不用说了吧，GetBytes可以用Move将string按字节放到数组中
解决方案四：
下面的能否完整的给我
解决方案五：
strTmp=System.Text.Encoding.Unicode.GetBytes(UserID.Text)>>这个是关键性一句,如何转为delphi

时间： 2024-09-25 14:51:10

帮忙将下面代码转换为 delphi的相关文章

下面Java代码转换为Delphi的代码

问题描述 publicbooleanread(RandomAccessFileraf){try{byte[]buf=newbyte[ProductSymbologyBlock.SIZE];intlen=raf.read(buf);return(len==ProductSymbologyBlock.SIZE?parse(buf,0):false);}catch(Exceptionex){return(false);}}publicbooleanread(InputStreamin){try{byt

编程-跪求大神帮忙看下代码，错了不晓得怎么改哦

问题描述 跪求大神帮忙看下代码,错了不晓得怎么改哦 switch (uMsg) { case WM_CHAR: char szChar[20]; sprintf(_T(szChar),_T( "char code is %d"), wParam); 错误 1 error C2065: "LszChar": 未声明的标识符 IntelliSense: "const wchar_t *" 类型的实参与 "const char *"

Flash AS 3.0菜鸟学飞教程：类的编写之时间轴代码转换为外部类

我们已经了解了在Flash CS3 中如何在时间轴上编写代码,那么如何将时间轴上的代码转换为外部类,以及Flash CS3 的文档类形式,接下来我们进一步的来研究编写类及外部as文件的方式. include 如果你了解AS1.0,AS2.0 编程,那么对include一定不陌生,在Actionscript 3.0中我们仍可以使用include 来导入代码. 例: 1.打开flash新建一个文档.保存为drag_inclue.fla在场景中创建一个影片剪辑,本例中使用的小球,将其转换为影片剪辑,并

jsp-求教：哪位大神帮忙看下代码，本人小白，实在不知道哪里有问题！！

问题描述 求教:哪位大神帮忙看下代码,本人小白,实在不知道哪里有问题!! 代码如下,登陆页面,把java逻辑放到了后台页面上,运行的时候没有报错,但是不跳转.测试账号密码正确不跳转因为没写,但是测试账号密码错误的情况下也不跳转. <%@ page language=""java"" import=""java.util.*java.sql.*info.DataBase"" pageEncoding=""

lda 主题 建模-跪求各位大侠帮忙解决LDA代码问题，小妹感激不尽！

问题描述 跪求各位大侠帮忙解决LDA代码问题,小妹感激不尽! 我在网上找到了yangliuy提供的LDA Gibbs Sampling 的JAVA实现源码,但它是针对英文文档的.我在他的基础上,把英文文档换成已经分词的中文文档,并把停用词换成中文的,但运行时老是有问题.LdaGibbsSampling代码如下: package liuyang.nlp.lda.main; import java.io.File; import java.io.IOException; import java.ut

帮忙看下代码,提示错误:赋值 -- 它是只读的 代码哪里错了?

问题描述 帮忙看下代码,提示错误:赋值--它是只读的代码哪里错了?publicstringgetFileName{get{getFileName="";try{if(((Request==null)==false)){stringwk=Request.Url.LocalPath.ToString();intpos=wk.LastIndexOf("/");if((pos!=-1)){wk=wk.Substring(pos+1);}returngetFileName=w

对象-接口、异常以及输入输出应用 ，有哪位帮忙写一下代码吗？

问题描述 接口.异常以及输入输出应用 ,有哪位帮忙写一下代码吗? (1) 设计一个复数运算接口OperatorListener,定义抽象方法Complex add(Complex z)(2) 设计一个复数类Complex,此复数类实现OperatorListener接口,该类定义私有属性:实部,虚部方法:返回此复数的详细信息String toString(),输出格式例如3+4i 实现接口里的Complex add(Complex stu)抽象方法,实现复数的相加构造方法:有参构造方法初始化成员

大神帮忙看下面代码运行后怎么写入txt文件？？？？

问题描述 大神帮忙看下面代码运行后怎么写入txt文件???? #include #include #include #include #include //输入/输出文件流类 using namespace std; const int Maxr=100;//最多的读者 const int Maxb=100;//最多的图书 const int Maxbor=5;//每位读者最多借五本书 //读者类,实现对读者的信息的描述 class Reader { private: int tag; //删除

《JavaScript和jQuery实战手册（原书第2版）》——3.4节函数：把有用的代码转换为可复用的命令

3.4 函数:把有用的代码转换为可复用的命令 假设在工作中你刚刚得到一位新的助理,来帮助你完成每项任务(这时候应该把本书归类为"玄幻小说"了).假设你饿了想吃披萨饼,但助理是新来到这座大楼和这个区域的,你必须给他清楚的指示:"出门右转,乘电梯到1层,走出大楼--"等.助手按照你的指示并且买来了一块披萨饼.几个小时之后,你又饿了,还想吃更多的披萨饼.现在,你不需要再次复述整个指示("出门右转,乘电梯到1层,走出大楼--").这次,助手知道到哪里去购