求助关于dll调用的一些问题

mujian669

一个图片识别的dll，原版给了vb的文档和例子，我想用python实现，结果怎么也没成功，希望大家给看看应该怎么办。

vb里面的文档和代码：
Private Declare Function GetByteVcode Lib "Vcode.dll" (ByVal ByteData As String, ByVal ByteLength As String, ByVal Index As String, ByVal Result As String) As Boolean

1.     Private Sub Command4_Click()
   
2.         Dim Gt As Boolean, Result As String
   
3.          
   
4.         Dim a() As Byte
   
5.         Dim n As Long
   
6.         Dim b As Long
   
7.         a = Xhttp("http://......")
   
8.         n = VarPtr(a(0))
   
9.         b = UBound(a) + 1
   
10.       
    
11.         Rem
    
12.         Result = Space$(100)
    
13.       
    
14.         Gt = GetByteVcode(n, b, 1, Result)
    
15.       
    
16.         Text2.Text = Result
    
17.     End Sub
    
18. 
    

复制代码

自己绞尽脑汁，多方求助，写了下面的代码：

1. # -*- coding: utf-8 -*-
   
2. 
   
3. import ctypes,cookielib, urllib,urllib2,os
   
4. 
   
5. cj = cookielib.LWPCookieJar()
   
6. opener = urllib2.build_opener(urllib2.HTTPCookieProcessor(cj))
   
7. opener.addheaders = [('Accept-Language','zh-cn'),('Content-Type','...')]
   
8. urllib2.install_opener(opener)
   
9. 
   
10. sock = opener.open("http://……","rb")
    
11. fp = sock.read()
    
12. sock.close()
    
13. 
    
14. pStr =  ctypes.POINTER(ctypes.c_char)()
    
15. pStr.value = fp
    
16. pVoid = ctypes.cast( pStr, ctypes.POINTER(ctypes.c_int))
    
17. 
    
18. ml=os.getcwd()
    
19. dll=ctypes.windll.LoadLibrary(ml+'\\Vcode.dll')
    
20. var="     "
    
21. dll.GetByteVcode(pVoid,len(pStr.value),"1",var)
    
22. print var
    
23. 
    

复制代码

结果还是报错：WindowsError: exception: access violation reading 0x000005B8

请问大家这个错在哪里了啊？

106033177

回复 1# mujian669

给个dll吧。这个东西识别率有多高？
   

mujian669

识别率，是看你做的库，样本越多，识别越高，程序绑定了电脑了。

106033177

回复 1# mujian669
有vcode的头文件吗？


   

mujian669

回复 4# 106033177


    什么头文件？

sunny7476

识别率是训练出来的吧？

mujian669

回复 6# sunny7476


    是的……

106033177

回复 1# mujian669
晕。这个dll不是用c写的?!! 好诡异的参数格式 ，传地址要写成字符串？！！太难猜了

1. from ctypes import *
   
2. buf = create_string_buffer(open('d:/test.bmp','rb').read())
   
3. res = create_string_buffer(500)
   
4. dll.GetByteVcode(str(addressof(buf)),str(len(buf)),'1',res)
   
5. 
   

复制代码

mujian669

回复 8# 106033177


原来如此，太感谢了