CPP_Builder/CAP
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

first commit (2002-04-24)

Browse Source
This commit is contained in:
José David Guillén
2021-09-01 18:53:06 +02:00
commit 4d943d773d
252 changed files with 17433 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

137
checksum_gen/CheckSUM.bpr Normal file
View File

@ -0,0 +1,137 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.06.00"/>
<PROJECT value="CheckSUM.exe"/>
<OBJFILES value="CheckSUM.obj mchecksum.obj"/>
<RESFILES value="CheckSUM.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) mchecksum.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="vcl.lib rtl.lib"/>
<SPARELIBS value="rtl.lib vcl.lib"/>
<PACKAGES value="rtl.bpi vcl.bpi vclx.bpi bcbsmp.bpi dbrtl.bpi vcldb.bpi adortl.bpi
ibsmp.bpi bdertl.bpi vcldbx.bpi qrpt.bpi teeui.bpi teedb.bpi tee.bpi
dss.bpi teeqr.bpi ibxpress.bpi dsnap.bpi vclie.bpi inetdb.bpi inet.bpi
nmfast.bpi webdsnap.bpi bcbie.bpi dclocx.bpi bcb2kaxserver.bpi asgc5.bpi
CabForCB.bpi CoolPack.bpi PhantomPack.bpi RAS_Tools.bpi JDsoft.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="ilink32"/>
<USERDEFINES value=""/>
<SYSDEFINES value="NO_STRICT"/>
<MAINSOURCE value="CheckSUM.cpp"/>
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
<OTHERFILES value=""/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-src_suffix cpp -I$(BCB)\include -I$(BCB)\include\vcl -boa"/>
<CFLAG1 value="-O2 -H=c:\ARCHIV~1\borland\CBUILD~2\lib\vcl60.csm -Hc -Vx -Ve -X- -a8 -b-
-k- -vi -c -tW -tWM"/>
<PFLAGS value="-$Y- -$L- -$D- -$A8 -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zn"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn"/>
<OTHERFILES value=""/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
<OTHERFILES value=""/>
</LINKER>
<FILELIST>
<FILE FILENAME="CheckSUM.cpp" FORMNAME="" UNITNAME="CheckSUM" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="CheckSUM.res" FORMNAME="" UNITNAME="CheckSUM" CONTAINERID="ResTool" DESIGNCLASS="" LOCALCOMMAND=""/>
<FILE FILENAME="mchecksum.cpp" FORMNAME="Form3" UNITNAME="mchecksum" CONTAINERID="CCompiler" DESIGNCLASS="" LOCALCOMMAND=""/>
</FILELIST>
<BUILDTOOLS>
</BUILDTOOLS>
<IDEOPTIONS>
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=3082
CodePage=1252
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
C:\Mis documentos\Fuentes de Programacion\C++ Builder\CAP\LM2000_vcl\LM2000_vcl.bpl=Funciones para el Manejo del LM2000
[HistoryLists\hlIncludePath]
Count=1
Item0=$(BCB)\include;$(BCB)\include\vcl
[HistoryLists\hlLibraryPath]
Count=1
Item0=$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
[HistoryLists\hlDebugSourcePath]
Count=1
Item0=$(BCB)\source\vcl
[HistoryLists\hlConditionals]
Count=1
Item0=_DEBUG
[Debugging]
DebugSourceDirs=$(BCB)\source\vcl
[Parameters]
RunParams=
Launcher=
UseLauncher=0
DebugCWD=
HostApplication=
RemoteHost=
RemotePath=
RemoteLauncher=
RemoteCWD=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
[Language]
ActiveLang=
ProjectLang=
RootDir=
</IDEOPTIONS>
</PROJECT>

BIN
checksum_gen/CheckSUM.exe Normal file
View File

Binary file not shown.

BIN
checksum_gen/CheckSUM.res Normal file
View File

Binary file not shown.

22
checksum_gen/checksum.cpp Normal file
View File

@ -0,0 +1,22 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("CheckSUM.res");
USEFORM("mchecksum.cpp", Form3);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm3), &Form3);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
return 0;
}
//---------------------------------------------------------------------------

104
checksum_gen/checksum.dfm Normal file
View File

@ -0,0 +1,104 @@
object Form3: TForm3
Left = 447
Top = 134
BorderStyle = bsDialog
Caption = 'www.infdj.com'
ClientHeight = 148
ClientWidth = 194
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 20
object Label1: TLabel
Left = 40
Top = 56
Width = 119
Height = 20
Caption = 'http://jd.infdj.com'
end
object Image1: TImage
Left = 48
Top = 8
Width = 100
Height = 41
AutoSize = True
Picture.Data = {
0A544A504547496D616765EC060000FFD8FFE000104A46494600010100000100
010000FFDB0043000B08080A08070B0A090A0D0C0B0D111C12110F0F1122191A
141C29242B2A282427272D3240372D303D302727384C393D43454849482B364F
554E465440474845FFDB0043010C0D0D110F1121121221452E272E4545454545
4545454545454545454545454545454545454545454545454545454545454545
45454545454545454545454545FFC00011080029006403012200021101031101
FFC4001F0000010501010101010100000000000000000102030405060708090A
0BFFC400B5100002010303020403050504040000017D01020300041105122131
410613516107227114328191A1082342B1C11552D1F02433627282090A161718
191A25262728292A3435363738393A434445464748494A535455565758595A63
6465666768696A737475767778797A838485868788898A92939495969798999A
A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
01010101010101010000000000000102030405060708090A0BFFC400B5110002
0102040403040705040400010277000102031104052131061241510761711322
328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
292A35363738393A434445464748494A535455565758595A636465666768696A
737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F5BA
28A2802B5F6A16DA6C1E75DCA235CE14752C7D001C93EC2B97BFD62EF5261196
6B2B67C8588362597EA47DDFA0E7DEA8EB17327DBEE6E00135D35C1B58031E13
9C01EC3824E39355AF34C1A45C477575219EF23B779DDDBF873C2803B0EBC0AE
88534929485734746B99AC747D4E7B30AA1EE4450291F2A9E13763F026A9F937
7A8EA46D606927995434B3CF231C67A000100559B7BAB28BC29F6013B0BA8F0E
5C44EC82504360B018EBC1F4CD41A4EACB1DD8D52C479E8CBE55D40A46E18E98
FF006864F1DC7E157A5DE9A81666D3B5BD3D3E67BA9201D7ECB70D91EFB589FD
0FE157749F1579712AEA6DBE1CED17AAB803DA45FE13EA7A7D2BA1B1D46D3538
7CDB499655FE2038653E847507D8D71FE2ADB6DAA49FD9F2224F288BCD4232BB
CB6D191EA549CFB006B14F99DAC0772AC1D4329041190477A5AE33C35A8BD95D
C762EAC96B3B32244C726DE55EA83FD938247A7E35D9D44A3618514515201451
450014521207520573DE2577927B4B7F35D60657775472BBC82A0648EDC9E2AA
3172764026BDE19FB73C9716655669306589F212523A1E39561818615C96A52C
C74C9E7BA9649252E11C4ACBBCAC6795523863C1FAE6B5F47D6FFB3B41993CD0
F7CF239109CE203D32C4F451D7DFB75A67876C5752D4D67605ACAD13646CE31E
631FBCDF8FF8D6D0566EFD0457D22DEFEF239858181A3B608042E082C0A86CEE
F7C9ED505C59C52DD9C8974CD4C8EB80ACFF00FB2B8AD9B9F0DDCDA5DB49A5DC
2AA104262528E8A4E76120FCCA0F4CF22AFE93A0471E992DB6AAD1DCF9B26FC3
1CED38C71924F6F5A7CEEDAEC07258BB8E51FDA315BB30E05DA23007EA54E57F
9569D8699668D1DF5FEA3662DA16DEA90B82BBBD7A92CDF5E6B525F0D3C27FD0
7512A9D92621C0FA13CFEB558F866F25932F796F1FABC68A1FF3EB5575BAFEBF
AF40294570DA9F89E2F22229BAE3ED0EA4731A85DABBBD18F5C76AEFEB274CD2
2DB46B493EC89E6CA01627392C7FFAF5C6DE5DDE5F4C6E24B813AA266584F488
F71B323007E7C739A8E5F69EEC7A01E9151CD3C56F19926912341D59D801F99A
E32C3C51259DB8B48765D8822DFE6CACCBE62E33F2F1E87BFF002E6B3753D427
D62E2D25176B14B37CD12AAB1545238C64753824E40CF4E82A55193760B9E8E9
22488AE8C195864329C8228AE0F44D5AEAC2C4DBDAC325DDB239F2A56382471F
9F39E68AAFAB4C2E6AEA3A65FCFA9492E4BC6461413C0A2D3C3934D6E16EA591
248D8B44EADCA83D47B8E9F95753454BAF37151E868E4BB1CDC7E0F8649035ED
C497201C8463F28FC3A5686A3A579BA68B6B4222DA41C0EFF5AD4A2A7DACAE99
0725FD8B7838F2D7F3A3FB16F3FE792FE75D6D15A7D66A1578F6392FEC5BCFF9
E4BF9D1FD8B79FF3C97F3AEB68A3EB3502F1EC71E340D4BF7DE54A63DE065031
0180EA091C8CD545F08EA178CE9332DAC450C602396C03CE33E99EDF86715DDD
2527889B7762934CE15BC25A85EDD4BE798A057428CD1B160FC63383D070381D
71D69FFF0008AEA518332181A551E5AA72005DBB463BFAFE7DABB8A4A7F58913
633B45D3DB4FD2A0B6942978D70481D68AD2A2B1949C9DD8CFFFD9}
Stretch = True
end
object Edit1: TEdit
Left = 0
Top = 88
Width = 193
Height = 28
TabOrder = 0
OnChange = Edit1Change
end
object Edit2: TEdit
Left = 0
Top = 120
Width = 193
Height = 28
TabOrder = 1
end
end

34
checksum_gen/mchecksum.cpp Normal file
View File

@ -0,0 +1,34 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "mchecksum.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit1Change(TObject *Sender)
{
char *cadena;
cadena = Edit1->Text.c_str();
int CHK, i;
CHK = 0;
for ( i=0; cadena[i] != NULL; i++ )
{
CHK += cadena[i];
}
Edit2->Text = AnsiString( ( CHK - ( (CHK / 10000)*10000 ) ) );
}
//---------------------------------------------------------------------------

104
checksum_gen/mchecksum.dfm Normal file
View File

@ -0,0 +1,104 @@
object Form3: TForm3
Left = 447
Top = 134
BorderStyle = bsDialog
Caption = 'www.infdj.com'
ClientHeight = 148
ClientWidth = 194
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 20
object Label1: TLabel
Left = 40
Top = 56
Width = 119
Height = 20
Caption = 'http://jd.infdj.com'
end
object Image1: TImage
Left = 48
Top = 8
Width = 100
Height = 41
AutoSize = True
Picture.Data = {
0A544A504547496D616765EC060000FFD8FFE000104A46494600010100000100
010000FFDB0043000B08080A08070B0A090A0D0C0B0D111C12110F0F1122191A
141C29242B2A282427272D3240372D303D302727384C393D43454849482B364F
554E465440474845FFDB0043010C0D0D110F1121121221452E272E4545454545
4545454545454545454545454545454545454545454545454545454545454545
45454545454545454545454545FFC00011080029006403012200021101031101
FFC4001F0000010501010101010100000000000000000102030405060708090A
0BFFC400B5100002010303020403050504040000017D01020300041105122131
410613516107227114328191A1082342B1C11552D1F02433627282090A161718
191A25262728292A3435363738393A434445464748494A535455565758595A63
6465666768696A737475767778797A838485868788898A92939495969798999A
A2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6
D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2F3F4F5F6F7F8F9FAFFC4001F01000301
01010101010101010000000000000102030405060708090A0BFFC400B5110002
0102040403040705040400010277000102031104052131061241510761711322
328108144291A1B1C109233352F0156272D10A162434E125F11718191A262728
292A35363738393A434445464748494A535455565758595A636465666768696A
737475767778797A82838485868788898A92939495969798999AA2A3A4A5A6A7
A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3
E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FAFFDA000C03010002110311003F00F5BA
28A2802B5F6A16DA6C1E75DCA235CE14752C7D001C93EC2B97BFD62EF5261196
6B2B67C8588362597EA47DDFA0E7DEA8EB17327DBEE6E00135D35C1B58031E13
9C01EC3824E39355AF34C1A45C477575219EF23B779DDDBF873C2803B0EBC0AE
88534929485734746B99AC747D4E7B30AA1EE4450291F2A9E13763F026A9F937
7A8EA46D606927995434B3CF231C67A000100559B7BAB28BC29F6013B0BA8F0E
5C44EC82504360B018EBC1F4CD41A4EACB1DD8D52C479E8CBE55D40A46E18E98
FF006864F1DC7E157A5DE9A81666D3B5BD3D3E67BA9201D7ECB70D91EFB589FD
0FE157749F1579712AEA6DBE1CED17AAB803DA45FE13EA7A7D2BA1B1D46D3538
7CDB499655FE2038653E847507D8D71FE2ADB6DAA49FD9F2224F288BCD4232BB
CB6D191EA549CFB006B14F99DAC0772AC1D4329041190477A5AE33C35A8BD95D
C762EAC96B3B32244C726DE55EA83FD938247A7E35D9D44A3618514515201451
450014521207520573DE2577927B4B7F35D60657775472BBC82A0648EDC9E2AA
3172764026BDE19FB73C9716655669306589F212523A1E39561818615C96A52C
C74C9E7BA9649252E11C4ACBBCAC6795523863C1FAE6B5F47D6FFB3B41993CD0
F7CF239109CE203D32C4F451D7DFB75A67876C5752D4D67605ACAD13646CE31E
631FBCDF8FF8D6D0566EFD0457D22DEFEF239858181A3B608042E082C0A86CEE
F7C9ED505C59C52DD9C8974CD4C8EB80ACFF00FB2B8AD9B9F0DDCDA5DB49A5DC
2AA104262528E8A4E76120FCCA0F4CF22AFE93A0471E992DB6AAD1DCF9B26FC3
1CED38C71924F6F5A7CEEDAEC07258BB8E51FDA315BB30E05DA23007EA54E57F
9569D8699668D1DF5FEA3662DA16DEA90B82BBBD7A92CDF5E6B525F0D3C27FD0
7512A9D92621C0FA13CFEB558F866F25932F796F1FABC68A1FF3EB5575BAFEBF
AF40294570DA9F89E2F22229BAE3ED0EA4731A85DABBBD18F5C76AEFEB274CD2
2DB46B493EC89E6CA01627392C7FFAF5C6DE5DDE5F4C6E24B813AA266584F488
F71B323007E7C739A8E5F69EEC7A01E9151CD3C56F19926912341D59D801F99A
E32C3C51259DB8B48765D8822DFE6CACCBE62E33F2F1E87BFF002E6B3753D427
D62E2D25176B14B37CD12AAB1545238C64753824E40CF4E82A55193760B9E8E9
22488AE8C195864329C8228AE0F44D5AEAC2C4DBDAC325DDB239F2A56382471F
9F39E68AAFAB4C2E6AEA3A65FCFA9492E4BC6461413C0A2D3C3934D6E16EA591
248D8B44EADCA83D47B8E9F95753454BAF37151E868E4BB1CDC7E0F8649035ED
C497201C8463F28FC3A5686A3A579BA68B6B4222DA41C0EFF5AD4A2A7DACAE99
0725FD8B7838F2D7F3A3FB16F3FE792FE75D6D15A7D66A1578F6392FEC5BCFF9
E4BF9D1FD8B79FF3C97F3AEB68A3EB3502F1EC71E340D4BF7DE54A63DE065031
0180EA091C8CD545F08EA178CE9332DAC450C602396C03CE33E99EDF86715DDD
2527889B7762934CE15BC25A85EDD4BE798A057428CD1B160FC63383D070381D
71D69FFF0008AEA518332181A551E5AA72005DBB463BFAFE7DABB8A4A7F58913
633B45D3DB4FD2A0B6942978D70481D68AD2A2B1949C9DD8CFFFD9}
Stretch = True
end
object Edit1: TEdit
Left = 0
Top = 88
Width = 193
Height = 28
TabOrder = 0
OnChange = Edit1Change
end
object Edit2: TEdit
Left = 0
Top = 120
Width = 193
Height = 28
TabOrder = 1
end
end

28
checksum_gen/mchecksum.h Normal file
View File

@ -0,0 +1,28 @@
//---------------------------------------------------------------------------
#ifndef checksumH
#define checksumH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TForm3 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TImage *Image1;
TEdit *Edit1;
TEdit *Edit2;
void __fastcall Edit1Change(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm3(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm3 *Form3;
//---------------------------------------------------------------------------
#endif