VFP9编写DLL动态库

本文介绍了如何使用Visual FoxPro 9(VFP9)创建DLL动态库。通过新建mydll.prg文件并编写将时间转换为分钟的函数或过程,然后将其封装为DLL。创建项目,设置主文件并编译成mydll.dll。注册DLL后,可以在VFP中调用,例如通过`createobject("mydll.dll")`和`mydll.htom(3.30)`。此外,VFP9编写的DLL据说也适用于其他开发工具,如VB.NET和Delphi,但可能需要处理版本信息和强名称。
摘要由CSDN通过智能技术生成

VF编写DLL动态库我想一般软件都会有一大堆的自定义函数或过程,我一般都会把它封装成DLL文件,这样感觉比较专业一点吧!如何在VFP中设计DLL文件呢?

新建一个mydll.prg文件,写入下列代码:
*此功能为将4.30(4点30分钟)转为分为单位的函数和过程
DEFINE CLASS mydll as Custom OLEPUBLIC
PROCEDURE htom
      LPARAMETERS time1
      minute1=INT(time1)*60+VAL(right(STR(time1,10,2),2))
      RETURN minute1
ENDPROC
ENDDEFINE


或者
DEFINE CLASS mydll as Custom OLEPUBLIC
function htom
     LPARAMETERS time1
     minute1=INT(time1)*60+VAL(right(STR(time1,10,2),2))
     RETURN minute1
ENDFUNC
ENDDEFINE
然后新建一个项目,把这个mydll.prg设置成主文件,连编成mydll.dll文件就可以了。
或者新建一个custom类,把类设成主文件, 在项目管理器击右健,项目信息,“server”输入项目名称 ,编译OK

完了之后 ,在“运行”注册regsvr32 d:/mydll.dll 

vfp9.0调用API制作照相软件实例 PUBLIC WM_CAP_DRIVER_DISCONNECT PUBLIC hwndc,WM_CAP_SAVEDIB,WM_CAP_FILE_SET_CAPTURE_FILEA,WM_CAP_SEQUENCE,WM_CAP_STOP DECLARE INTEGER capCreateCaptureWindowA IN "AVICAP32.DLL" STRING lpszWindowName ,INTEGER dwStyle , INTEGER x, INTEGER Y, INTEGER nWidth ,INTEGER nHeight,INTEGER ParentWin,INTEGER nId DECLARE INTEGER SendMessage IN "user32" INTEGER HWND, INTEGER wmsg,INTEGER wpar1, INTEGER wpar2 DECLARE INTEGER SendMessage IN "user32" AS SendMessageA INTEGER HWND, INTEGER wmsg,INTEGER wpar1, STRING wpar2 *!* 显示: WM_USER = 1024 WM_CAP_START = WM_USER WM_CAP_STOP = WM_CAP_START + 68 WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10 WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11 WM_CAP_SAVEDIB = WM_CAP_START + 25 WM_CAP_GRAB_FRAME = WM_CAP_START + 60 WM_CAP_SEQUENCE = WM_CAP_START + 62 WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20 WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63 WM_CAP_SET_OVERLAY =WM_CAP_START+ 51 WM_CAP_SET_PREVIEW =WM_CAP_START+ 50 WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6 WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2 WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3 WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5 WM_CAP_SET_SCALE=WM_CAP_START+ 53 WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52 hWndC = capCreateCaptureWindowA('My Own Capture Window',1342177280,0,0,200,150,THISFORM.HWND ,0) &&显示大小 IF hWndC 0 SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0) SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0) SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0) SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0) SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0) SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0) SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0) SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0) * THISFORM.ACTIVATE ENDIF
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值