自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

木瓜的专栏

My Visual FoxPro Road

  • 博客(19)
  • 资源 (5)
  • 收藏
  • 关注

原创 fastreport 控件 修改codebar的默认条码定界符

Codebar又称NW7条码,包括abcd0123456789±:$/.共20个符号,类似code39码一样前后*号定界符,codebar只能以abcd四个字母为定界符,但fastreport默认的定界符不符合要求,经过反编译,发定它默认加上了A开头,B结尾。那么要更自由的生成自己的格式,最简单的方式就是把这两个AB改成Z,这样就跳过了来的添加头尾信息,可以自由定义Codebar条码了。这样再生成的codebar条码可以自己指定定界符,text输入 D12345678D 就可以了,

2024-02-01 14:54:16 235 1

原创 VFP中使用winsock控件收发二进制数据

VFP中使用winsock控件收发网络数据时,如果包含有二进制数据,总是会丢失,或者与实际数据不符,这是由于字符转换的问题引起的。vfp的字符串本质与二进制数据没有任何区别,而所有的OCX控件和COM组件(OCX控件本质是一种有界面的COM),默认都是UNICODE字符传输,虽然COM定义了几十种数据类型,但在VFP中,基本就只数字和字符可以用了,所以VFP在与组件交换数据时,会自动进行ansi->unicode或者unicode->ansi转换,大于128的字符如果成对则不易转错,但不成对出

2022-05-14 10:25:55 617

原创 关于MFC OCX控件 关于菜单的 <unknown verb>如何去掉

MFC生成的ocx 关于菜单上总是带一个 unknown verb经搜索,发现是向导的BUG,缺少宏定义。网上有介绍说把afxctl.rc 包含进来才能去掉,但会多一些无用的信息经测试,只需要在项目的rc文件 添加一个宏字符串即可:AFX_IDS_VERB_PROPERTIES 65089 &Properties…这个定义是从afxctl.rc中复制过来。...

2022-05-06 19:54:38 286

原创 windows 2008 R2 无法更新 WindowsUpdate 80072EE2

一台老机器,安装2008后无法更新补丁,总结如下:1.检查机器时间,这个电池没电了,时间回到了好多年前,时间错误是无法更新的。2.删除已经更新的下载文件:先停用windows更新服务,然后找到 C:\Windows\SoftwareDistribution 文件夹,把里面所有文件删除干净,重新启动服务,就可以更新了。...

2020-09-21 21:22:54 2825

原创 海康威视摄像头断后与8芯网线连接方法

拆迁施工队暴力将一个海康威视的摄像头拉断了,POE供电的插口没法插网线,只好把它剪掉,用网络模块重新接下但它的颜色不是网线的颜色,用电工测试仪测试好每根线与标准网线的对应关系如下:海康: 橙黄一对,绿蓝一对,紫灰一对,白棕一对对应关系为:橙 黄 - 橙白 橙绿 蓝 - 绿白 绿灰 紫 - 蓝白 蓝棕 白 - 棕白 棕感觉这颜色有点反常识,要做水晶头就是 橙 黄 绿 紫 灰 蓝 棕 白 这样的线序对应568B的线序这里MARK一下,免得下次断了又要测线半天...

2020-09-17 22:00:35 15632

原创 Nginx + VFP FastCGI开发说明

Nginx + VFP FastCGI开发阅读索引为什么放弃IIS+CGI / IIS+FastCGI为什么选择NginxNginx如何与FastCGI程序通信使用VFP要如何开发FastCGI程序配置与发布VFP FastCGI程序详解1.为什么放弃IIS+CGI / IIS+FastCGI众所周知IIS的性能令人诟病,早期VFP开发WEB也没更好的方案,采用了CGI的方式...

2019-11-04 10:45:12 2223 5

原创 为Nginx 创建 Windows 的服务程序

由于nginx本身没有提供服务功能,只好自己动手写了一个支持32/64位的服务外壳,程序很小,只需要双击它就可以安装为windows服务

2016-03-14 13:43:37 703

原创 在VFP中控制和创建windows 服务程序

这是很久以前写的代码,近期有朋友在问,就顺序发出来服务程序运行于后台,没有界面,随系统启动,用VFP编写服务程序其实也很简单,下面是编写服务程序过程可能会用到的:1.启动,停止一个已注册的服务程序 ServiceRun()*下面代码演示了停止并启动SQL服务#define SERVICE_CONTROL_START 0x00000000

2015-09-17 18:17:37 2927 1

原创 VFP中使用json

找了好久,也没好用可用于vfp的json库,还是自己动手写一个吧:obj=CreateObject("foxJson") obj.Parse('{"name":"lee","age":32, "childs":[{"name":"xiao ming","age":2},{"name":"baobao","age":5}]}')?obj.item("name").value ?o

2013-02-22 12:41:46 4161 8

原创 ComOpen

函数名:ComOpen(nPort[,Setting])缩写:como打开串口,返回一个句柄。返回值:如果打开成功,返回串口句柄,否则返回空串。参数:nPort:整型,端口,如1代表com1 [Setting],端口参数设置,默认为"9600,n, 8,1",等同于mscomm控件中的设置 示例代码请参阅ComWrite函

2012-08-31 14:16:26 1126

原创 IsDiskInDrive

函数名:IsDiskInDrive(cDrive)缩写:IsDi检查指定磁盘是否就绪,如果是软盘,可以用来检查是否有盘在软驱里。返回值:逻辑值,为.T.时表示就绪 参数:cDrive:指定磁盘驱动器 示例代码Set Library To myFll?"磁盘A有盘吗?"+Iif(IsDiskInDrive("A:

2012-08-31 14:15:43 565

原创 GetVolumeNumber

函数名:GetVolumeNumber(cDrive)缩写:GetV读取指写磁盘的卷标返回值:字符型,指写磁盘的卷标 参数:cDrive:需要读取卷标的磁盘 示例代码Set Library To myFll?GetVolumeNumber("C:\")&&显示C:盘的卷标Set Library To

2012-08-31 14:10:34 676

原创 VC2005 运行库解析

Origin缘由:  最近在研究Perl的图形处理功能,跑到CPAN上面乱找了一通,发现了这个叫做Win32-GUI的库,拥有包括AxWindows、Constants、DIBitmap等图形库,相当的强大。使用的方法类似于Tk,很直观简洁,与Python上面的Tk类似。不过Perl的这些和Win32打交道的库都有一个问题,本质上它们都是被OLE生成,到运行期再加载DLL执行指令。  为了使用Wi

2007-04-06 13:49:00 4695 4

原创 GetPort(nType)获取计算机可用端口(串口或并口)

函数名:GetPort(nType)缩写:gtpt读取系统所有端口信息,包括并口、串口、虚拟端口。返回值:字符型,端口信息,以换行符(chr(10))为分隔 参数:[nType]:可选,整型,0:全部,1:串口,2:并口。默认值为0。 示例代码Set Library To myFll?"电脑中可用端口有:"

2007-03-08 10:03:00 2621 2

原创 GetMAC([nIndex])获取网卡的MAC地址

MyFLL帮助 Power by 木瓜2012/08/14更新折叠返回索引页函数名:GetMAC([nIndex])缩写:getma获取网卡的MAC地址。注意,只能读取活动网卡的MAC,如果网卡被禁用,可能无法读取后续版本可能不再支持此函数,请使用AEthernet()代替返回值:字符型,网卡的MAC地址,如果指定的网卡不存在

2007-03-08 09:59:00 2531

原创 GetCpuId()

函数名:GetCpuId()缩写:GetC读取CPU的序列号,注意,部分CPU可能无法读取序列号返回值:字符型,CPU的序列号 参数:无 示例代码Set Library To myFll?"你的CPU为:"+GetCpuId()Set Library To

2007-03-08 09:52:00 4219

原创 GetDiskSerial([nDriveIndex])

函数名:GetDiskSerial([nDriveIndex])缩写:GetD读取指定硬盘的序列号。注意:部分硬盘可能没有序列号。支持Win95、98、Me、NT、2000、XP、2003,支持User权限,支持IDE、SATA、SCSI硬盘及部分移动硬盘。返回值:字符串,成功读取返回硬盘序列号,否则返空值。 参数:[nDriveIndex]

2007-01-07 12:10:00 2131

原创 VFP中使用浏览器控件制软件界面

 不知你在使用VFP中是否 有以下困惑:1.如何使自己VFP软件的界面更漂亮些?2.如何使用嵌入浏览器控件?3.如何屏蔽嵌入页面的右键菜单?4.如何截获超链接的点击事件?5.使用浏览器控件后,如何同时使用模式表单和非模式表单6.如何阻止浏览器控件弹出新窗口?下面,是我在编程时对浏览器控件的经验:1.如何使自己VFP软件的界面更漂亮些?这个问题可大可小,与个人

2006-08-04 16:00:00 6089 4

原创 VFP算法示例RSA

*******************RSA算法示例*************************公开密钥   n:两个素数p和q的乘积*           e: 与(p-1)(q-1)互素**私人密钥   d: e的负一次方((mod(p-1)(q-1)))*加密       c=m的e次方 mod n*解密       m=c的d次方 mod n*注:只是一个小数运算,大数计算会产生

2006-06-19 08:06:00 3252

Nginx+VFP FASTCGI

这是一个 Nginx+VFP FASTCGI 开发示例。 包括了vfp源码,nginx,以及fastcgi等工具

2019-11-04

NginxSrv 服务程序

由于Nginx没有提供windows下的服务程序,电脑重启都需要手动运行,本程序以服务程序方式运行来解决此问题,可以从服务控制台里启动停止nginx,本程序提供32位和64位两个版本。 安装 将 NginxSrv.exe放到Nginx.exe相同目录,运行它,会自动检测有没安装服务,根据提示安装即可。 删除 使用命令 NginxSrv uninstall即可删除服务

2016-03-10

VFP中开发服务程序

使用MYFLL在VFP中开发服务程序示例

2015-09-17

foxJson,vfp中使用JSON

在vfp中使用JSON,by木瓜 *解析测试 obj=CreateObject("foxJson") obj.Parse('{"name":"lee","age":32, "childs":[{"name":"xiao ming","age":2},{"name":"baobao","age":5}]}') ?obj.item("name").value ?obj.item("age").value ?obj.item("childs").count ?obj.item("childs").item(1).item("name").value ?obj.item("childs").item(1).item("age").value ?obj.item("childs").item(2).item("name").value ?obj.item("childs").item(2).item("age").value

2015-07-08

MyFLL V1.200.12.825

MyFll是专为Microsoft Visual FoxPro设计的扩展库。 其中包括硬件操作、邮件收发、加密解密、压缩解压、注册表、打印等两百多个函数,极大的简化了VFP的开发。

2012-08-31

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除