将VB.net代码改为VB6代码

美薇 2017-02-20 09:51:29
'最近需要用VB6对别人提供的的人脸识别SDK进行编程,没有VB6例程,只有vb.NET例程和部分说明,本人初学不久,求高人将下面例程改为VB6代码,不胜感激。
'vb.net Module1.vb 代码:
Imports System.Runtime.InteropServices
Imports System.IO
Imports System.Text
Module Module1
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftInitSDK(ByVal ipAddr As String, ByVal port As Long) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftDetectFaces _
(ByVal chn As Integer, ByVal pbyJpgSrcF1() As Byte, ByVal lenF1 As Integer, ByRef outData As IntPtr, ByRef facenum As Integer) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftDetectFaces1 _
(ByVal chn As Integer, ByVal filename As String, ByVal outData() As Integer, ByRef facenum As Integer) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Sub ftUnInitSDK()
End Sub
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftVerifyImage(ByVal pbyJpgSrcF0() As Byte, ByVal lenF0 As Integer, _
ByVal pbyJpgSrcF1() As Byte, ByVal lenF1 As Integer, ByRef score As Single) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftGetImageFeature(ByVal pbyJpgSrcF0() As Byte, ByVal lenF0 As Integer, _
ByVal feature() As Byte, ByRef lenOut As Integer) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftRegistPerson(ByVal regId As Integer, _
ByVal feature() As Byte, ByVal len As Integer) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftDeletePerson(ByVal regId As Integer) As Integer
End Function
<DllImport("FTDetectAPI.dll", CharSet:=CharSet.Ansi, CallingConvention:=CallingConvention.StdCall)> Public Function ftQueryPerson(ByVal feature() As Byte, ByVal len As Integer, _
ByVal maxReturn As Integer, ByVal thresh As Double, ByVal outPersonBuffer() As Byte, ByVal outPersonBufferLen As Integer) As Integer
End Function

Function ReadImageFile(file As String, ByRef Dat() As Byte, ByRef Len As Long)
FileOpen(1, file, OpenMode.Binary)
Len = LOF(1)
ReDim Dat(Len - 1)
FileGet(1, Dat)
FileClose(1)
If (Len > 0) Then
Return 0
End If
Return -1
End Function
Sub Main()
Dim ret As Integer
Console.WriteLine("开始初始化链接")
ret = ftInitSDK("127.0.0.1", 9898)
If (ret >= 0) Then
Console.WriteLine("初始化链接成功!")
ElseIf ret = -1 Then
Console.WriteLine("动态库模块加载失败!")
ElseIf ret = -10 Then
Console.WriteLine("链接人脸识别服务程序失败!")
End If
Dim imgDat0() As Byte
Dim imgLen0 As Long
Dim imgDat1() As Byte
Dim imgLen1 As Long
Dim imgDat2() As Byte
Dim imgLen2 As Long
ReadImageFile("../images/face_00.jpg", imgDat0, imgLen0)
ReadImageFile("../images/face_01.jpg", imgDat1, imgLen1)
ReadImageFile("../images/face_02.jpg", imgDat2, imgLen2)
Console.WriteLine("=========================================================")
Console.WriteLine("开始测试人脸检测函数")
'演示人脸检测功能
'从照片中检测人脸位置坐标

Dim outData As IntPtr
Dim facenum As Integer
Dim detResult(1024) As Integer
ret = ftDetectFaces(0, imgDat0, imgLen0, outData, facenum)
If ret >= 0 And facenum > 0 Then
For i = 0 To facenum - 1
Dim myint As Integer = Marshal.ReadInt32(outData, i * 5)
Dim x As Integer = Marshal.ReadInt32(outData, (i * 5 + 1) * Len(myint))
Dim y As Integer = Marshal.ReadInt32(outData, (i * 5 + 2) * Len(myint))
Dim width As Integer = Marshal.ReadInt32(outData, (i * 5 + 3) * Len(myint))
Dim height As Integer = Marshal.ReadInt32(outData, (i * 5 + 4) * Len(myint))
Dim info As String
Console.WriteLine()
Console.WriteLine("ID编号:" & myint & "位置:" & x & "," & y & "," & width & "," & height)
Next i
End If
Console.WriteLine("=========================================================")
Console.WriteLine("开始测试1:1人脸比对函数")

'演示1:1人脸比对功能
Dim score As Single
ret = ftVerifyImage(imgDat0, imgLen0, imgDat1, imgLen1, score)
If (ret >= 0) Then
Console.WriteLine("两幅图像1;1测试比对结果:" & score)
End If
Console.WriteLine("=========================================================")
Console.WriteLine("开始测试1:N人脸检索函数")
'演示1:N人脸检索功能
'清空人脸
ftDeletePerson(-1)
'提取特征'从照片中提取人脸特征特征
Dim fea0(8000) As Byte
Dim feaLen0 As Integer
Dim fea1(8000) As Byte
Dim feaLen1 As Integer
Dim fea2(8000) As Byte
Dim feaLen2 As Integer
'ret >=0 正常,否则失败
Console.WriteLine("步骤1:提取3张图片的人脸特征")
ret = ftGetImageFeature(imgDat0, imgLen0, fea0, feaLen0)
ret = ftGetImageFeature(imgDat1, imgLen1, fea1, feaLen1)
ret = ftGetImageFeature(imgDat2, imgLen2, fea2, feaLen2)
'注册人脸 注册N张照片
'ret >=0 表示注册成功

Console.WriteLine("步骤2:往库中注册其中2个特征, 假设它们ID分别为101,102")
ret = ftRegistPerson(101, fea0, feaLen0)
ret = ftRegistPerson(102, fea1, feaLen1)
'查找人脸 通过另一张照片查找101 ID是事存在? 假设过滤阈值为0.85,最多返回20个结果
Console.WriteLine("步骤3:通过101 另一张照片查找ID是否存在? 返回格式为 id,value^id,value^id......")
Dim outPersonBuffer(1024) As Byte
Dim outPersonBufferLen As Integer
'每次使用前,初始化
ReDim outPersonBuffer(1024)
outPersonBufferLen = 1024
ret = ftQueryPerson(fea2, feaLen2, 20, 0.85F, outPersonBuffer, outPersonBufferLen)
If (ret >= 0) Then
Dim reStr As String
reStr = Encoding.ASCII.GetString(outPersonBuffer)
Console.WriteLine("识别结果:" & reStr)
End If

Console.WriteLine("=========================================================")
Console.WriteLine("测试结束!")
Console.ReadLine()

'释放资源
ftUnInitSDK()

End Sub

End Module

下面是C语言头文件说明:


#ifndef _FT_DETECT_API_H_
#define _FT_DETECT_API_H_

// DetectAPI.cpp : 定义控制台应用程序的入口点。
//


#include "stdafx.h"

#define IMAGE_SIZE 1024*1024*8

struct SDS_POINT 结构:
{
float x;
float y;
};
struct FaceObject 定义结构:
{
SDS_POINT lefteye; //左眼坐标
SDS_POINT righteye;
SDS_POINT mouth; //嘴巴坐标
float outLight; //明暗程度
float outSynLight; //光线对称性
float outDiffH; //水平偏转
float outDiffV; //俯仰偏转
float outDiffR; //垂直偏转
float outEyeClosed; //
float outEyeGlass; //眼睛清晰度
float outMouthClosed; //闭嘴程度
float qScore;
};
/*
* 函数名:ftInitSDK
*参数:IP-人脸识别服务所在IP地址;PORT-端口
*返回:-10,表示找不到比对服务;-1表示程序加载失败
*/

int WINAPI ftInitSDK(const char* ip, int port);
void WINAPI ftUnInitSDK();
/*
* 函数名:ftDetectFaces 本地函数

*参数:chn,表示检测通道,即1路视频,同时可开启5路。
*参数:pbyJpgSrcF,表示图片流,即JPG文件以内存数组方式存储;
*参数:lenF,内存图像流,数组的长度
*参数:outData,表示检测到的人脸ID与位置,每5个INT值表示1个人脸,格式为 id,x,y,w,h,id,x,y,w,h,id.......
*参数:facenum, 表示outData中包括的有效人脸个数
*返回:-1表示失败,可能图片有问题;-10网络或后台EXE服务有问题。
*/

int WINAPI ftDetectFaces(int chn, char* pbyJpgSrcF, int lenF, int *&outData, int &facenum);
int WINAPI ftDetectFaces2(int chn, char* pbyJpgSrcF, int lenF, int *&outData, int &facenum);
/*
* 函数名:ftVerifyImage 远程函数
*参数:pbyJpgSrcF,表示图片流,即JPG文件以内存数组方式存储;
*参数:lenF,内存图像流,数组的长度
*参数:score, 图片比对结果[0,1.0], -1表示比对失败
*-1表示失败,可能图片有问题;-10网络或后台EXE服务有问题。
*/

int WINAPI ftVerifyImage(char* pbyJpgSrcF0, int lenF0, char* pbyJpgSrcF1, int lenF1, float &score);
/*
* 函数名:ftGetImageFeature 得到图像的特征值 远程函数

*参数:pbyJpgSrcF,表示图片流,即JPG文件以内存数组方式存储;
*参数:lenF,内存图像流,数组的长度
*参数:outFeature, 在外部申请空间,如char outFeature[4096]
*参数:outLen , 返回实际特征大小
*-1表示失败,可能图片有问题;-10网络或后台EXE服务有问题。
*/
int WINAPI ftGetImageFeature(char* pbyJpgSrcF, int lenF, char *outFeature, int &outLen);
/*
* 函数名:ftRegistPerson 1;N往内存注册特征值 远程函数
*参数:id, 该人的唯一ID 定义时必须大于0
*参数:feature,特征值;
*参数:len,特征值长度;
*-1表示失败,可能图片有问题;-10网络或后台EXE服务有问题。
*/

int WINAPI ftRegistPerson(int id, const char *feature, int len);
int WINAPI ftDeletePerson(int id); //-1表示清空所有记录
int WINAPI ftUpdatePerson(int id, const char *feature, int len);//暂未使用
/*
* 函数名:ftQueryPerson 1;N查询与指定特征值相似的人 远程函数
*参数:feature,特征值;
*参数:len,特征值长度;
*参数:maxReturn, 返回相似的最多人数
*参数:threshHold, 返回的人应满足的阈值条件
*参数:outPersonBuffer, 外部申请空间,如char outPersonBuffer[10000]; 返回的人ID与相似度值,格式为 id,value^id,value^id.......
*参数:outPersonBufferLen = 10000, 指明外部空间大小
*-1表示失败,可能图片有问题;-10网络或后台EXE服务有问题。
*/

int WINAPI ftQueryPerson(const char *feature, int len, int maxReturn, double threshHold, char *outPersonBuffer, int outPersonBufferLen);
...全文
5374 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
美薇 2017-02-26
  • 打赏
  • 举报
回复
正在学习,谢谢大家
赵4老师 2017-02-21
  • 打赏
  • 举报
回复
建议楼主抽空学习一下VB.NET
Tiger_Zhao 2017-02-21
  • 打赏
  • 举报
回复
具体工作不想自己做就出钱外包。
ah_2056 2017-02-21
  • 打赏
  • 举报
回复
引用 1 楼 caozhy 的回复:
vb.net编译成dll,comvisible为true,用regasm注册,vb添加工程引用,然后调用。
最好的办法。
threenewbee 2017-02-21
  • 打赏
  • 举报
回复
vb.net编译成dll,comvisible为true,用regasm注册,vb添加工程引用,然后调用。
vb.net操作DataGridView控件的用法的集合,包括: 1. DataGridView当前的单元格属性取得、变更 2. DataGridView编辑属性 3. DataGridView最下面一列新追加行非表示 4. DataGridView判断当前选中行是否为新追加的行 5. DataGridView删除行可否设定 6. DataGridView行列不表示和删除 DataGridView控件用法合集(二) 7. DataGridView行列宽度高度设置为不能编辑 8. DataGridView行高列幅自动调整 9. DataGridView指定行列冻结 10. DataGridView列顺序变更可否设定 11. DataGridView行复数选择 12. DataGridView选择的行、列、单元格取得 DataGridView控件用法合集(三) 13. DataGridView指定单元格是否表示 14. DataGridView表头部单元格取得 15. DataGridView表头部单元格文字列设定 16. DataGridView选择的部分拷贝至剪贴板 17.DataGridView粘贴 18. DataGridView单元格上ToolTip表示设定(鼠标移动到相应单元格上时,弹出说明信息) DataGridView控件用法合集(四) 19. DataGridView中的ContextMenuStrip属性 20. DataGridView指定滚动框位置 21. DataGridView手动追加列 22. DataGridView全体分界线样式设置 23. DataGridView根据单元格属性更改显示内容 24. DataGridView新追加行的行高样式设置る 25. DataGridView新追加行单元格默认值设置 DataGridView中输入错误数据的处理(五) 26. DataGridView单元格数据错误标签表示 27. DataGridView单元格内输入值正确性判断 28. DataGridView单元格输入错误值事件的捕获 DataGridView控件用法合集(六) 29. DataGridView行排序(点击列表头自动排序的设置) 30. DataGridView自动行排序(新追加值也会自动排序) 31. DataGridView自动行排序禁止情况下的排序 32. DataGridView指定列指定排序 DataGridView控件用法合集(七) 33. DataGridView单元格样式设置 34. DataGridView文字表示位置的设定 35. DataGridView单元格内文字列换行 36. DataGridView单元格DBNull值表示的设定 37. DataGridView单元格样式格式化 38. DataGridView指定单元格颜色设定 39. DataGridView单元格文字字体设置 40. DataGridView根据单元格值设定单元格样式 DataGridView控件用法合集(八) 41. DataGridView设置单元格背景颜色 42. DataGridView行样式描画 43. DataGridView显示行号 44. DataGridView焦点所在单元格焦点框不显示的设定 DataGridView控件用法合集(九) 45. DataGridView中显示选择框CheckBox 46. DataGridView中显示下拉框ComboBox 47. DataGridView单击打开下拉框 48. DataGridView中显示按钮 49. DataGridView中显示链接 50. DataGridView中显示图像 DataGridView控件用法合集(十) 51. DataGridView编辑中单元格控件取得 52. DataGridView输入自动完成 53. DataGridView单元格编辑时键盘KEY事件取得 54. DataGridView下拉框(ComboBox)单元格编辑时事件取得 55. DataGridView下拉框(ComboBox)单元格允许文字输入设定 DataGridView控件用法合集(十一) 56. DataGridView根据值不同在另一列中显示相应图片 57. DataGridView中显示进度条(ProgressBar) 58. DataGridView中添加MaskedTextBox DataGridView控件用法合集(十二) 59. DataGridView中Enter键按下焦点移至旁边的单元格 60. DataGridView行集合化(Group)
1、可以设置,修改,增加学期信息,例如:2007年上学期,但是您必须设置一个默认学期为当前学期; 2、可以设置,修改,增加院系信息,如果是小学中学和高中不分院系,可以直接默认为本部,这样班级都是隶属于一个院系(本部)的。 3、可以设置,修改,增加教师信息,也可以批量增加教师信息,批量增加的教师姓名都是教师编号,可以教师登录后台后自己修改姓名等信息 4、可以设置,修改,增加班级信息,但是班级必须隶属于某个院系,有班级后才可以设置学生和课程。 5、可以设置,修改,增加学生信息,也可以批量增加学生信息,批量增加的学生姓名都是学生编号,可以学生登录后台后自己修改姓名等信息,学生增加的时候必须选择相关的班级。 6、可以设置,修改,增加课程信息,包括课程的开课教师,开课课时,开课班级等信息,此功能能配合课程表生成教师和班级课程表。 7、登录日志可以查看教师,学生,管理员的登录情况。 8、数据维护可以备份数据库,也可以直接操作SQL语句(不建议使用),这样数据可以更容易备份,系统更安全。 9、学生可以前台查询自己本学期的课程的成绩信息; 10、可以自动计算一个班级的所有学生成绩的整体排名和名次信息; 11、提供成绩的快速输入功能,批量给成绩,提供成绩的计算规则设置; 例如:(平时成绩*10%+作业成绩*10%+期中成绩*20%+期末成绩*60%=总分) 12、教师可以通过成绩排序来排布本课程的学生成绩的高低名次 13、提供成绩分析功能,可以查看某个课程成绩的分数分配比例 例如:开课人数30人 分析时间 2008-7-28 4:04:25 总分 2037 分 平均分 67.9 分 最高分 85 分 最低分 35 分 均分以上人数 29 人 均分以下人数 1 人 14、其它功能用户可以考用户手册; 15、教师可以查看本学期开设的课程,通过成绩管理功能进入学生成绩的录入功能; 16、教师可以通过成绩分析功能,分析课程的优秀,及格等比例的信息 17、教师还可以通过成绩汇总功能,对一个班级开设的全部课程进行总体的分析,计算全体课程的总分,名次等信息。 不在需要传统的计算器来完成 18、可以通过导出到EXCEL功能导出数据到您的机器,通过EXCEL来打印成绩数据,管理,数据保存更方便。

1,485

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧