vfp读取config.ini文件

这篇博客介绍了如何在Visual FoxPro (VFP)中读取config.ini配置文件。首先展示了config.ini文件的内容,包括ServerName和Database的设置。然后,提供了读取程序的详细步骤,包括检查文件是否存在、转换文件为字符串、遍历每一行并根据关键字提取所需信息。如果读取过程中发现缺失信息,程序会弹出错误提示。
摘要由CSDN通过智能技术生成

*!* 建立config.ini文件

*!*--------------------

[ServerName]
ServerName=csxt

[Database]
Database=hisdata

*!*--------------------

 

 *!*读取程序

PUBLIC lcPCName,lcDBName

If !File('Config.ini')
    Messagebox('配制文件 Config.ini 不存在!'+Space(5),16,'信息提示')
 quit
Endif
lcConfigStr=Upper(Filetostr('Config.ini')) &&将INI文件转成字符串
lnConfigStrLine=Memlines(lcConfigStr)      &&取得INI文件的行数
Store '' To lcPCName,lcDBName &&如果有必要也可以将这几个变量定义为全局变量
For I=1 To lnConfigStrLine
    lcRowStr=Mline(lcConfigStr,I)  &&取得INI文件的每行
    Do Case
        Case Upper('ServerName=')$l

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
VFP(Visual FoxPro)中,要读取JPG文件的具体尺寸,可以使用GDIPlus类库和一些VFP的内置函数来实现。 首先,需要加载GDIPlus类库,可以通过以下代码实现: ```foxpro DECLARE INTEGER Gdip_InitLib IN gdiplus DECLARE INTEGER Gdip_CreateBitmapFromFile IN gdiplus STRING, @nHandle AS INTEGER DECLARE INTEGER Gdip_GetImageWidth IN gdiplus INTEGER, @nWidth AS INTEGER DECLARE INTEGER Gdip_GetImageHeight IN gdiplus INTEGER, @nHeight AS INTEGER DECLARE INTEGER Gdip_DisposeImage IN gdiplus INTEGER DECLARE INTEGER Gdip_Shutdown Lib "gdiplus" ``` 接下来,可以编写一个函数来读取JPG文件的尺寸,代码如下: ```foxpro FUNCTION GetJpgSize LPARAMETERS tcFileName LOCAL lcFullPath lcFullPath = FULLPATH(tcFileName) LOCAL lnResult, lnWidth, lnHeight, lnHandle lnResult = Gdip_InitLib(0) IF lnResult <> 0 RETURN -1 && 加载GDIPlus类库失败 ENDIF lnResult = Gdip_CreateBitmapFromFile(lcFullPath, @lnHandle) IF lnResult <> 0 lnHandle = -1 && 读取图片失败 ELSE lnResult = Gdip_GetImageWidth(lnHandle, @lnWidth) lnResult = Gdip_GetImageHeight(lnHandle, @lnHeight) Gdip_DisposeImage(lnHandle) ENDIF lnResult = Gdip_Shutdown() IF lnHandle <> -1 RETURN lnWidth, lnHeight && 返回图片尺寸 ELSE RETURN -1, -1 && 读取图片尺寸失败 ENDIF ENDFUNC ``` 然后,可以在VFP中调用这个函数来获取JPG文件的具体尺寸,示例代码如下: ```foxpro LOCAL lnWidth, lnHeight lnWidth, lnHeight = GetJpgSize("image.jpg") IF lnWidth > 0 AND lnHeight > 0 ? "图片尺寸:", lnWidth, "x", lnHeight ELSE ? "读取图片尺寸失败" ENDIF ``` 以上就是使用VFP读取JPG文件的具体尺寸的方法。请注意,需要确保GDIPlus类库已正确安装,并将其相关文件放置在VFP环境的可访问路径下。
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值