CnPack Forum


 
Subject: Cnvcl20220601无法编译,CnRSA单元出错
sxbug
新警察
Rank: 1



UID 446081
Digest Posts 0
Credits 28
Posts 9
点点分 28
Reading Access 10
Registered 2019-2-12
Status Offline
Post at 2022-6-23 22:37  Profile | Blog | P.M. 
Cnvcl20220601无法编译,CnRSA单元出错

错误提示:在cnRSA单元里,ECN_OK,ECN_CUSTOM_ERROR_BASE 等均未定义。_CnSetLastError等函数也没有定义。
请问该如何修改?
谢谢
Top
sxbug
新警察
Rank: 1



UID 446081
Digest Posts 0
Credits 28
Posts 9
点点分 28
Reading Access 10
Registered 2019-2-12
Status Offline
Post at 2022-6-24 11:00  Profile | Blog | P.M. 
我在github上找了一个CnConst.pas文件替换了一下,就好了

[ 本帖最后由 sxbug 于 2022-8-12 15:02 编辑 ]
Top
sxbug
新警察
Rank: 1



UID 446081
Digest Posts 0
Credits 28
Posts 9
点点分 28
Reading Access 10
Registered 2019-2-12
Status Offline
Post at 2022-8-12 15:01  Profile | Blog | P.M. 
const
  ECN_OK                                                      = 0;         // 错误码 OK,无错误

  ECN_FILE_NOT_FOUND                          = $10;       // 文件不存在

  ECN_CUSTOM_ERROR_BASE             = $1000;     // 供外界设定的错误码起始值
Top
sxbug
新警察
Rank: 1



UID 446081
Digest Posts 0
Credits 28
Posts 9
点点分 28
Reading Access 10
Registered 2019-2-12
Status Offline
Post at 2022-8-12 15:02  Profile | Blog | P.M. 
function CnGetLastError: Integer;

procedure _CnSetLastError(Err: Integer);

implementation

threadvar
  CnErrorCode: Integer;

function CnGetLastError: Integer;
begin
  Result := CnErrorCode
end;

procedure _CnSetLastError(Err: Integer);
begin
  CnErrorCode := Err;
end;

end.
Top
Passion (LiuXiao)
管理员
Rank: 9Rank: 9Rank: 9


UID 359
Digest Posts 19
Credits 6838
Posts 3591
点点分 6838
Reading Access 102
Registered 2004-3-28
Status Offline
Post at 2022-8-12 21:43  Profile | Blog | P.M. 
是我们打包疏忽所致,可以从github上clone最新版本尝试。
Top
 




All times are GMT++8, the time now is 2024-11-23 17:32

    本论坛支付平台由支付宝提供
携手打造安全诚信的交易社区 Powered by Discuz! 5.0.0  © 2001-2006 Comsenz Inc.
Processed in 0.009203 second(s), 7 queries , Gzip enabled

Clear Cookies - Contact Us - CnPack Website - Archiver - WAP