用FREEBASIC写标准DLL

用FREEBASIC写标准DLL
用BASIC写标准DLL已经不是天方夜谭了！不多说了，看：

新建一个BAS文件，建立一个函数：

[code]function AddNumbers ( byval operand1 as integer, byval operand2 as integer ) as integer export

 function = operand1 + operand2
 
end function[/code]

可以注意到，和一般建立的函数不一样的地方，函数的类型后面带了一个export，它的意思就是告诉编译器输出成标准DLL。编译的时候要记得带上-dll这个参数：
fbc -dll 文件名.bas

用FREEBASIC编译后，我们可以得到一个标准DLL，如何调用呢？
我们需要先建立一个BI文件（FREEBASIC的头文件）内容为：
[code]declare function AddNumbers lib "mydll" alias "AddNumbers" ( byval operand1 as integer, byval operand2 as integer ) as integer[/code]

是不是很象VB的模块中的标准DLL调用呢？
然后程序中调用这个BI头文件就可以用函数啦~~这样就解决了VB不能直接写标准DLL的问题了~~

freebasic中文论坛

www.freebasic.cn