writereadinitest.prg

VFP调用第三方接口动态库

DECLARE INTEGER WritePrivateProfileString IN Win32API AS WritePrivStr ;
  String cSection, String cKey, String cValue, String cINIFile
&&说明：放在Ini文件中的小节名,在小节中的变量名,变量名下的值,Ini文件名
DECLARE INTEGER GetPrivateProfileString IN Win32API AS GetPrivStr ;
  String cSection, String cKey, String cDefault, String @cBuffer, ;
  Integer nBufferSize, String cINIFile
&&说明：放在Ini文件中的小节名,在小节中的变量名,？[''],读取的内容,读取的长度,Ini文件名
&&测试写入与读取第三方代理服务器与读卡器的设置情况
*curdir()函数用获取当前工作路径为：Drive:\Path\..格式
private cIniFileName,cIniHearder,cIniEntry,cIniValue,nIniValueSize&&定义需用到的几个变量

lcIniFileName=[SiosConfig.ini]&&定义配置文件名（不变动）
&&————————————————————————————————————————————————
lcIniHearder=[Server]&&服务器参数设置（小节名）

lcIniEntry=[ServerIP]&&第三方代理服务器IP
lcIniValue=[10.39.0.13]
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
lcIniEntry=[Port]&&通讯端口，不变动
lcIniValue=[8500]
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
lcIniEntry=[SysCode]&&第三方子系统代码
lcIniValue=[30]
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
lcIniEntry=[TerminalNo]&&第三方终端号，模拟POS机号
lcIniValue=[7]
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
&&————————————————————————————————————————————————
lcIniHearder=[CardType]&&读卡器参数设置（小节名）

lcIniEntry=[Type]&&读卡器类型
lcIniValue=[0]&&读卡器类型0：USB，1：COM,默认为USB读卡器
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
lcIniEntry=[COM]&&COM口
lcIniValue=[1]&&默认的COM口为1
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
lcIniEntry=[Speed]&&波特率
lcIniValue=[9600]&&传输的波特率,默认为9600
=WritePrivStr(lcIniHearder,lcIniEntry,lcIniValue,CURDIR()+lcIniFileName)&&写入SiosConfig.ini文件
&&————————————————————————————————————————————————
CLEAR DLLS