濛濛-CSDN博客

原创 Mysql免安装版布署操作说明

Mysql布署方法使用方法：下载最好解压到磁盘根目录下，因为mysql目录名不能有空格，所以不能安装在program files文件夹里。 My.ini最好程序生成，或者安装时指定D或E，因为里面有个路径需要手动改，或者程序生成my.ini最好。建议指定安装在D:\mysql或E:\mysql 如果第一次使用，Data目录不要手动创建，否则会初始化失败。打包时全压缩不需要初始化。通过ODBC连接，需要安装ODBC驱动。打包时建议压缩，因为mysql8.0.2安装完1G，打包后只有133M

2021-12-23 11:25:12 1045

原创 mysql免安装版自动生成my.ini及添加服务

mysql布署时，因为my.ini需要设置mysql路径为当前路径。只需要执行下本批处理路径，自动生成my.ini,并且自动安装mysql服务开机自启动。个性化参数自己改，如端口号，服务名等。my.bat文件如下，建个bat拷进去。set cpath=%~dp0del %cpath%\my.iniecho [mysqld] >> %cpath%\my.iniecho innodb_buffer_pool_size = 128M >> %cpath%\my.ini.

2021-12-23 11:14:06 1290

原创 PB12.6INI配置文件乱码问题(ansi|utf8)

环境：pb12.6问题 1（加解密字符串不一致）：如果使用加解密，带符号的字符串通过加密算法加密后，存到INI会乱码，实际存的和保存前的字符串不一致，造成解密后的字符串不正确。但不带符号的字符串不会出现这个问题。解决方法：方法一：加密后的字符串，用base64编码后再保存。解密时再转换回来方法二：INI编码用UTF8，注意第一行profilestring等都会乱码，windows不支持。所以UTF8格式文件一定要加个干挠行把第一行跳过。ansi与UTF8区别PB对UTF8支

2021-10-07 23:09:25 1891

原创 PB连接c#写的DLL返回值是-2或-3但exe不报错

PB调用c#写的DLL网上例子很多省略。注册DLL需要注意，不能将regram.exe发布到根目录下，因为不同机器不同版本的.net不兼容，发布到客户端会提示错误。PB发布后的.exe可以注册使用OLE，但在PB调试环境不可以，不是返回-2就是返回-3，DLL生成也没问题。具体原因未知，解决办法：关闭PB，反注册dll和tlb，打开VS，编译下，使系统有这个DLL的“环境变量”（具体原因未知）。然后再打开PB连接OLE，成功后关闭VS即可，以后在别的工作区也不会出现返回值是-2或-3情

2021-09-14 13:47:32 871 1

原创 pb mysql数据库配置在ODBC找不到源

从官网下载mysql for odbc,下载老版5.3版，不要下载最新8.？版。一定要下载X86 32位的，因为PB不支持64位的ODBC。安装mysql for ODBC驱动后，在ODBC32进行配置。注意一定不要在ODBC 64位进行配置，否则PB看不到。...

2021-03-11 15:34:34 281

原创 PB使用filecopy报-1错误

fs1 = gs_path+"\Sdtapi1.dll"ft = gs_path+"\Sdtapi.dll"FileCopy ( gs_path+"\Sdtapi1.dll", gs_path+"\Sdtapi.dll", True)//这样写会报错的，即使源文件和目标文件都没有问题。r = FileCopy (fs1 , ft, True)//用变量就不会报错了。折腾一下午...

2020-03-14 19:47:03 619

原创 pb12.5 数据库char类型字段后面跟空格问题

使用PB12.5或11.5以上版本，在数据类型char中，正常在pb9版本下打开是实际字符，但在PB12.5版本中打开，后面会跟着空格补齐。如果全部使用trim ,工作量很大，如果改数据库类型，也不现实。可通过下列方式实现。在数据库连接配置中的syntax选项卡中，将下列参数勾上。trim trailing spaces in char data配置文件方式如下。//

2012-06-25 16:01:28 1410

n_base64.sru

PB12.5，PB12.6下调试通过把SRU导入即可。 integer li_FileNum, loops, i long flen, bytes_read, new_pos blob b, tot_b flen = FileLength(filename) if flen = 0 then messagebox('提示','文件长度为0！',StopSign!) return "" end if li_FileNum = FileOpen(filename, StreamMode!, Read!, LockRead!) if li_fileNum = -1 then messagebox('提示','打开文件失败！',StopSign!) return "" end if IF flen > 32765 THEN IF Mod(flen, 32765) = 0 THEN loops = flen/32765 ELSE loops = (flen/32765) + 1 END IF ELSE loops = 1 END IF new_pos = 1 FOR i = 1 to loops bytes_read = FileRead(li_FileNum, b) tot_b = tot_b + b NEXT FileClose(li_FileNum) string ls_return //nvo_base64 luo_base64 //ls_return =base64head+ luo_base64.base64encode(tot_b) // n_base64 luo_base64 ls_return = luo_base64.encode(tot_b) return ls_return

2019-12-07