帮忙看下SSL加载证书问题

老年if

  

子程序名	返回值类型	公开	备 注
加载证书文件	逻辑型
参数名	类 型	参考	可空	数组	备 注
ThisCTX	整数型
CertFile	文本型
KeyFile	文本型

如果真 (ThisCTX ＝ 0)
返回 (假)
如果真 (CertFile ≠ “”)
如果真 (cdeclCall (取模块句柄 (“SSL_CTX_use_certificate_file”), ThisCTX, Ptr_Str (CertFile), #SSL_FILETYPE_PEM ) ≤ 0)
返回 (假)

如果真 (KeyFile ≠ “”)
如果真 (cdeclCall (取模块句柄 (“SSL_CTX_use_PrivateKey_file”), ThisCTX, Ptr_Str (KeyFile), #SSL_FILETYPE_PEM ) ≤ 0)
返回 (假)

如果真 (cdeclCall (取模块句柄 (“SSL_CTX_check_private_key”), ThisCTX) ＝ 0)
返回 (假)
返回 (真)

.版本 2<br /> <br /> .子程序 加载证书文件, 逻辑型<br /> .参数 ThisCTX, 整数型<br /> .参数 CertFile, 文本型<br /> .参数 KeyFile, 文本型<br /> <br /> .如果真 (ThisCTX ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> .如果真 (CertFile ≠ “”)<br />     .如果真 (cdeclCall (取模块句柄 (“SSL_CTX_use_certificate_file”), ThisCTX, Ptr_Str (CertFile), #SSL_FILETYPE_PEM) ≤ 0)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (KeyFile ≠ “”)<br />     .如果真 (cdeclCall (取模块句柄 (“SSL_CTX_use_PrivateKey_file”), ThisCTX, Ptr_Str (KeyFile), #SSL_FILETYPE_PEM) ≤ 0)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (cdeclCall (取模块句柄 (“SSL_CTX_check_private_key”), ThisCTX) ＝ 0)<br />     返回 (假)<br /> .如果真结束<br /> 返回 (真)

客户机运行没问题  在服务器运行调用这个程序命令的时候就直接崩溃了
新人，没精币了  有知道怎么解决的  红包也可以

老年if

老年if 发表于 2020-4-14 23:07
我试了  效果还是一样  帮忙看下把  我把这个模块源码上传了   谢谢

这个是的模块源码

ds9660

老年if 发表于 2020-4-14 23:07
我试了  效果还是一样  帮忙看下把  我把这个模块源码上传了   谢谢

我只是教你怎么判定非空，至于为什么取句柄是空值，你可以取错误，或者调试看看，也有可能是缺少openssl的环境

qiuguoqie

SSL不应该是网站用的吗

晓天信

目测缺少必要的运行环境

老年if

晓天信 发表于 2020-4-14 19:36
目测缺少必要的运行环境

什么环境呢?

老年if

qiuguoqie 发表于 2020-4-14 18:32
SSL不应该是网站用的吗

openssl  用的发送邮件的库文件 要加载证书

ds9660

把  取模块句柄 (“xxx”) 单独拿出来，判断是否=0，如果=0，就不要执行call，不然就会崩溃

老年if

ds9660 发表于 2020-4-14 20:20
把  取模块句柄 (“xxx”) 单独拿出来，判断是否=0，如果=0，就不要执行call，不然就会崩溃

试了还是不行，先判断模块句柄一样是崩溃

老年if

ds9660 发表于 2020-4-14 20:20
把  取模块句柄 (“xxx”) 单独拿出来，判断是否=0，如果=0，就不要执行call，不然就会崩溃

把加载证书这个程序集屏蔽就可以正常运行  但是没有加载证书

ds9660

老年if 发表于 2020-4-14 21:18
把加载证书这个程序集屏蔽就可以正常运行  但是没有加载证书

我不是告诉你了吗，因为你加载证书里面调用的  取模块句柄 子程序，这个取到 句柄肯定是空值，你call一个空值，自然要崩溃