Skip to content

Commit 792a176

Browse files
freitasjcafreitasjca
committed
Add dependent CnPack files
1 parent c1bcc46 commit 792a176

29 files changed

Lines changed: 30148 additions & 0 deletions

‎CnPack/Common/CnPack.inc‎

Lines changed: 3623 additions & 0 deletions
Large diffs are not rendered by default.

‎CnPack/Crypto/CnAES.dcu‎

120 KB
Binary file not shown.

‎CnPack/Crypto/CnAES.pas‎

Lines changed: 7569 additions & 0 deletions
Large diffs are not rendered by default.

‎CnPack/Crypto/CnBase64.dcu‎

7.25 KB
Binary file not shown.

‎CnPack/Crypto/CnBase64.pas‎

Lines changed: 547 additions & 0 deletions
Large diffs are not rendered by default.

‎CnPack/Crypto/CnConsts.dcu‎

14 KB
Binary file not shown.

‎CnPack/Crypto/CnConsts.pas‎

Lines changed: 250 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,250 @@
1+
{******************************************************************************}
2+
{ CnPack For Delphi/C++Builder }
3+
{ 中国人自己的开放源码第三方开发包 }
4+
{ (C)Copyright 2001-2025 CnPack 开发组 }
5+
{ ------------------------------------ }
6+
{ }
7+
{ 本开发包是开源的自由软件，您可以遵照 CnPack 的发布协议来修 }
8+
{ 改和重新发布这一程序。 }
9+
{ }
10+
{ 发布这一开发包的目的是希望它有用，但没有任何担保。甚至没有 }
11+
{ 适合特定目的而隐含的担保。更详细的情况请参阅 CnPack 发布协议。 }
12+
{ }
13+
{ 您应该已经和开发包一起收到一份 CnPack 发布协议的副本。如果 }
14+
{ 还没有，可访问我们的网站： }
15+
{ }
16+
{ 网站地址：https://www.cnpack.org }
17+
{ 电子邮件：master@cnpack.org }
18+
{ }
19+
{******************************************************************************}
20+
21+
unit CnConsts;
22+
{* |<PRE>
23+
================================================================================
24+
* 软件名称：开发包基础库
25+
* 单元名称：公共资源字符串定义单元
26+
* 单元作者：CnPack 开发组
27+
* 备 注：
28+
* 开发平台：PWin98SE + Delphi 5.0
29+
* 兼容测试：PWin9X/2000/XP + Delphi 5/6
30+
* 本 地 化：该单元中的字符串均符合本地化处理方式
31+
* 修改记录：2005.12.24 V1.0
32+
* 创建单元，移植入英文字符
33+
================================================================================
34+
|</PRE>}
35+
36+
interface
37+
38+
{$I CnPack.inc}
39+
40+
const
41+
ECN_OK = 0; // 错误码 OK，无错误
42+
43+
ECN_FILE_NOT_FOUND = $10; // 文件不存在
44+
45+
ECN_CUSTOM_ERROR_BASE = $1000; // 供外界设定的错误码起始值
46+
47+
//==============================================================================
48+
// Strings DO NOT Localize:
49+
//==============================================================================
50+
51+
resourcestring
52+
53+
// CnPack Reg Path
54+
SCnPackRegPath = '\Software\CnPack';
55+
56+
// Tools Reg Path
57+
SCnPackToolRegPath = 'CnTools';
58+
59+
//==============================================================================
60+
// Strings to be Localized:
61+
//==============================================================================
62+
63+
64+
var
65+
// Common Information
66+
SCnInformation: string = 'Information';
67+
SCnWarning: string = 'Warning';
68+
SCnError: string = 'Error';
69+
SCnEnabled: string = 'Enabled';
70+
SCnDisabled: string = 'Disabled';
71+
SCnMsgDlgOK: string = '&OK';
72+
SCnMsgDlgCancel: string = '&Cancel';
73+
SCnMsgDlgYes: string = '&Yes';
74+
SCnMsgDlgNo: string = '&No';
75+
SCnMsgDlgYesToAll: string = 'Yes to &All';
76+
SCnMsgDlgNoToAll: string = 'No to A&ll';
77+
SCnVersion: string = 'Version';
78+
SCnNeedAdmin: string = 'Maybe Need Administrator.';
79+
80+
const
81+
// CnPack Information
82+
SCnPackAbout = 'CnPack';
83+
SCnPackVer = 'Ver 0.1.5.2';
84+
SCnPackStr = SCnPackAbout + ' ' + SCnPackVer;
85+
SCnPackUrl = 'https://www.cnpack.org';
86+
SCnPackBbsUrl = 'https://bbs.cnpack.org';
87+
SCnPackNewsUrl = 'news://news.cnpack.org';
88+
SCnPackSourceUrl = 'https://github.com/cnpack';
89+
SCnPackEmail = 'master@cnpack.org';
90+
SCnPackBugEmail = 'bugs@cnpack.org';
91+
SCnPackSuggestionsEmail = 'suggestions@cnpack.org';
92+
93+
SCnPackDonationUrl = 'https://www.cnpack.org/foundation.php';
94+
SCnPackDonationUrlSF = 'http://sourceforge.net/donate/index.php?group_id=110999';
95+
SCnPackGroup = 'CnPack Team';
96+
SCnPackCopyright = '(C)Copyright 2001-2025 ' + SCnPackGroup;
97+
98+
// CnPropEditors
99+
SCopyrightFmtStr =
100+
SCnPackStr + #13#10#13#10 +
101+
'Component Name: %s' + #13#10 +
102+
'Author: %s(%s)' + #13#10 +
103+
'Comment: %s' + #13#10 +
104+
'HomePage: ' + SCnPackUrl + #13#10 +
105+
'Email: ' + SCnPackEmail + #13#10#13#10 +
106+
SCnPackCopyright;
107+
108+
resourcestring
109+
110+
// Component Palette Name
111+
SCnNonVisualPalette = 'CnPack Tools';
112+
SCnGraphicPalette = 'CnPack VCL';
113+
SCnNetPalette = 'CnPack Net';
114+
SCnDatabasePalette = 'CnPack DB';
115+
SCnReportPalette = 'CnPack Report';
116+
117+
// CnPack Developers Added from Last.
118+
var
119+
SCnPack_Team: string = 'CnPack Team';
120+
SCnPack_Zjy: string = 'Zhou JingYu';
121+
SCnPack_Shenloqi: string = 'Chinbo';
122+
SCnPack_xiaolv: string = 'xiaolv';
123+
SCnPack_Flier: string = 'Flier Lu';
124+
SCnPack_LiuXiao: string = 'Liu Xiao';
125+
SCnPack_PanYing: string = 'Pan Ying';
126+
SCnPack_Hubdog: string = 'Hubdog';
127+
SCnPack_Wyb_star: string = 'wyb_star';
128+
SCnPack_Licwing: string = 'Licwing zue';
129+
SCnPack_Alan: string = 'Alan';
130+
SCnPack_GuYueChunQiu: string = 'GuYueChunQiu';
131+
SCnPack_Aimingoo: string = 'Aimingoo';
132+
SCnPack_QSoft: string = 'QSoft';
133+
SCnPack_Hospitality: string = 'ZhangJiongXuan (Hospitality)';
134+
SCnPack_SQuall: string = 'SQUALL';
135+
SCnPack_Hhha: string = 'Hhha';
136+
SCnPack_Beta: string = 'beta';
137+
SCnPack_Leeon: string = 'Leeon';
138+
SCnPack_SuperYoyoNc: string = 'SuperYoyoNC';
139+
SCnPack_JohnsonZhong: string = 'Johnson Zhong';
140+
SCnPack_DragonPC: string = 'Dragon P.C.';
141+
SCnPack_Kendling: string = 'Kending';
142+
SCnPack_ccrun: string = 'ccrun';
143+
SCnPack_Dingbaosheng: string = 'dingbaosheng';
144+
SCnPack_LuXiaoban: string = 'Zhou Yibo(Lu Xiaoban)';
145+
SCnPack_Savetime: string = 'savetime';
146+
SCnPack_solokey: string = 'solokey';
147+
SCnPack_Bahamut: string = 'Bahamut';
148+
SCnPack_Sesame: string = 'Sesame';
149+
SCnPack_BuDeXian: string = 'BuDeXian';
150+
SCnPack_XiaoXia: string = 'Summer';
151+
SCnPack_ZiMin: string = 'ZiMin';
152+
SCnPack_rarnu: string = 'rarnu';
153+
SCnPack_dejoy: string = 'dejoy';
154+
SCnPack_Rain: string = 'Rain';
155+
SCnPack_cnwinds: string = 'cnwinds';
156+
157+
// CnCommon
158+
SUnknowError: string = 'Unknow error';
159+
SErrorCode: string = 'Error code:';
160+
161+
const
162+
SCnPack_TeamEmail = 'master@cnpack.org';
163+
SCnPack_ZjyEmail = 'zjy@cnpack.org';
164+
SCnPack_ShenloqiEmail = 'Shenloqi@hotmail.com';
165+
SCnPack_xiaolvEmail = 'xiaolv888@etang.com';
166+
SCnPack_FlierEmail = 'flier_lu@sina.com';
167+
SCnPack_LiuXiaoEmail = 'liuxiao@cnpack.org';
168+
SCnPack_PanYingEmail = 'panying@sina.com';
169+
SCnPack_HubdogEmail = 'hubdog@263.net';
170+
SCnPack_Wyb_starMail = 'wyb_star@sina.com';
171+
SCnPack_LicwingEmail = 'licwing@chinasystemsn.com';
172+
SCnPack_AlanEmail = 'BeyondStudio@163.com';
173+
SCnPack_GuYueChunQiuEmail = 'guyuechunqiu@cnpack.org';
174+
SCnPack_AimingooEmail = 'aim@263.net';
175+
SCnPack_QSoftEmail = 'hq.com@263.net';
176+
SCnPack_HospitalityEmail = 'Hospitality_ZJX@msn.com';
177+
SCnPack_SQuallEmail = 'squall_sa@163.com';
178+
SCnPack_HhhaEmail = 'Hhha@eyou.com';
179+
SCnPack_BetaEmail = 'beta@01cn.net';
180+
SCnPack_LeeonEmail = 'real-like@163.com';
181+
SCnPack_SuperYoyoNcEmail = 'superyoyonc@sohu.com';
182+
SCnPack_JohnsonZhongEmail = 'zhongs@tom.com';
183+
SCnPack_DragonPCEmail = 'dragonpc@21cn.com';
184+
SCnPack_KendlingEmail = 'kendling@21cn.com';
185+
SCnPack_ccRunEmail = 'info@ccrun.com';
186+
SCnPack_DingbaoshengEmail = 'yzdbs@msn.com';
187+
SCnPack_LuXiaobanEmail = 'zhouyibo2000@sina.com';
188+
SCnPack_SavetimeEmail = 'savetime2k@hotmail.com';
189+
SCnPack_solokeyEmail = 'crh611@163.com';
190+
SCnPack_BahamutEmail = 'fantasyfinal@126.com';
191+
SCnPack_SesameEmail = 'sesamehch@163.com';
192+
SCnPack_BuDeXianEmail = 'appleak46@yahoo.com.cn';
193+
SCnPack_XiaoXiaEmail = 'summercore@163.com';
194+
SCnPack_ZiMinEmail = '441414288@qq.com';
195+
SCnPack_rarnuEmail = 'rarnu@cnpack.org';
196+
SCnPack_dejoyEmail = 'dejoybbs@163.com';
197+
SCnPack_RainEmail = SCnPack_TeamEmail; // 该俩作者无 Email，用开发组邮箱代替
198+
SCnPack_cnwindsEmail = SCnPack_TeamEmail;
199+
200+
// CnMemProf
201+
SCnPackMemMgr = 'CnMemProf';
202+
SMemLeakDlgReport = 'Found %d memory leaks. [There are %d allocated before replace memory manager.]';
203+
SMemMgrODSReport = 'Get = %d Free = %d Realloc = %d';
204+
SMemMgrOverflow = 'Memory Manager''s list capability overflow, Please enlarge it!';
205+
SMemMgrRunTime = '%d hour(s) %d minute(s) %d second(s)。';
206+
SOldAllocMemCount = 'There are %d allocated before replace memory manager.';
207+
SAppRunTime = 'Application total run time: ';
208+
SMemSpaceCanUse = 'HeapStatus.TotalAddrSpace: %d KB';
209+
SUncommittedSpace = 'HeapStatus.TotalUncommitted: %d KB';
210+
SCommittedSpace = 'HeapStatus.TotalCommitted: %d KB';
211+
SFreeSpace = 'HeapStatus.TotalFree: %d KB';
212+
SAllocatedSpace = 'HeapStatus.TotalAllocated: %d KB';
213+
SAllocatedSpacePercent = 'TotalAllocated div TotalAddrSpace: %d%%';
214+
SFreeSmallSpace = 'HeapStatus.FreeSmall: %d KB';
215+
SFreeBigSpace = 'HeapStatus.FreeBig: %d KB';
216+
SUnusedSpace = 'HeapStatus.Unused: %d KB';
217+
SOverheadSpace = 'HeapStatus.Overhead: %d KB';
218+
SObjectCountInMemory = 'Objects count in memory: ';
219+
SNoMemLeak = ' No memory leak.';
220+
SNoName = '(no name)';
221+
SNotAnObject = ' Not an object';
222+
SByte = 'Byte';
223+
SCommaString = ',';
224+
SPeriodString = '.';
225+
226+
resourcestring
227+
SCnErrorMapViewOfFile = 'MapViewOfFile Failed. ';
228+
SCnErrorCreateFileMapping = 'CreateFileMapping Failed. ';
229+
230+
function CnGetLastError: Integer;
231+
232+
procedure _CnSetLastError(Err: Integer);
233+
234+
implementation
235+
236+
threadvar
237+
CnErrorCode: Integer;
238+
239+
function CnGetLastError: Integer;
240+
begin
241+
Result := CnErrorCode;
242+
end;
243+
244+
procedure _CnSetLastError(Err: Integer);
245+
begin
246+
CnErrorCode := Err;
247+
end;
248+
249+
end.
250+

‎CnPack/Crypto/CnDES.dcu‎

30.2 KB
Binary file not shown.

0 commit comments

Comments
 (0)