取汉字笔画的DLL

阿杰

用FreeBasic编写的动态链接库
可是供其它语言调用
含易语言调用例子

1. 
   
2. 
   
3. '#引用 "windows.bi"
   
4. 
   
5. 外部 "Windows-MS"
   
6.      函数 查画笔 别名 "hzbh" ( hz 为 字符型 指针) 为 Integer 导出
   
7.   Static As ZString * 5 bxk(6726)
   
8.      bxk(1)="一1"
   
9.   bxk(2)="亍3"
   
10.   bxk(3)="于3"
    
11.   bxk(4)="盂8"
    
12.   bxk(5)="迂6"
    
13.   bxk(6)="开4"
    
14.   bxk(7)="型9"
    
15.   bxk(8)="干3"
    
16.   bxk(9)="顸9"
    
17.   bxk(10)="刊5"
    
18.   bxk(11)="刑6"
    
19.   bxk(12)="形7"
    
20.   bxk(13)="邢6"
    
21.   bxk(14)="邗5"
    
22.   bxk(15)="末5"
    
23.   bxk(16)="无4"
    
24.   bxk(17)="天4"
    
25.   bxk(18)="蚕10"
    
26.   bxk(19)="吞7"
    
27.   bxk(20)="顶8"
    
28.   bxk(21)="忝8"
    
29.   ...
    
30.   ...
    
31.   ...
    
32. 
    
33.   计次循环 i 为 整数型 = 1 至 6725
    
34.       如果 (Mid(bxk(i),1,2) = *hz) 则
    
35.        返回 Val(Mid(bxk(i),3))
    
36.       结束 如果
    
37.   
    
38.   计次循环尾
    
39.   返回 0
    
40. 结束 函数
    
41.   
    
42. 结束 外部
    

复制代码

游客，如果您要查看本帖隐藏内容请回复

Tesla.Angela

回复一下看一下，顺便问一下，dll有src吗？

Tesla.Angela

怎么有个汉语BASIC在里面？

MikeW

看一下原理

qq503407184

学习