commit dc9568579a857f866dc5694e8cf50a31b24a60c9 Author: jdg Date: Sun Sep 12 22:06:12 2021 +0200 First commit 05/03/2000 diff --git a/Emp.bpr b/Emp.bpr new file mode 100644 index 0000000..5af666d --- /dev/null +++ b/Emp.bpr @@ -0,0 +1,160 @@ +# --------------------------------------------------------------------------- +!if !$d(BCB) +BCB = $(MAKEDIR)\.. +!endif + +# --------------------------------------------------------------------------- +# IDE SECTION +# --------------------------------------------------------------------------- +# The following section of the project makefile is managed by the BCB IDE. +# It is recommended to use the IDE to change any of the values in this +# section. +# --------------------------------------------------------------------------- + +VERSION = BCB.03 +# --------------------------------------------------------------------------- +PROJECT = Emp.exe +OBJFILES = Emp.obj Empaquetador.obj +RESFILES = Emp.res +DEFFILE = +RESDEPEN = $(RESFILES) Empaquetador.dfm +LIBFILES = +LIBRARIES = VCLDB35.lib VCL35.lib +SPARELIBS = VCL35.lib VCLDB35.lib +PACKAGES = VCLX35.bpi VCL35.bpi VCLDB35.bpi VCLDBX35.bpi QRPT35.bpi TEEUI35.bpi \ + VCLSMP35.bpi TEEDB35.bpi TEE35.bpi NMFAST35.bpi INETDB35.bpi INET35.bpi \ + JD_soft.bpi CDopping.bpi bcbsmp35.bpi dclocx35.bpi ibsmp35.bpi QSElFrm.bpi +# --------------------------------------------------------------------------- +PATHCPP = .; +PATHASM = .; +PATHPAS = .; +PATHRC = .; +DEBUGLIBPATH = $(BCB)\lib\debug +RELEASELIBPATH = $(BCB)\lib\release +# --------------------------------------------------------------------------- +CFLAG1 = -Od -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx -tW +CFLAG2 = -I$(BCB)\include;$(BCB)\include\vcl -D_RTLDLL -H=$(BCB)\lib\vcl35.csm +CFLAG3 = -Tkh30000 +PFLAGS = -U$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) \ + -I$(BCB)\include;$(BCB)\include\vcl -D_RTLDLL -$Y -$W -$O- -v -JPHN -M +RFLAGS = -i$(BCB)\include;$(BCB)\include\vcl -D_RTLDLL +AFLAGS = /i$(BCB)\include /i$(BCB)\include\vcl /d_RTLDLL /mx /w2 /zd +LFLAGS = -L$(BCB)\lib\obj;$(BCB)\lib;$(RELEASELIBPATH) -aa -Tpe -x -Gn -v +IFLAGS = +# --------------------------------------------------------------------------- +ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES) +ALLRES = $(RESFILES) +ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mti.lib +# --------------------------------------------------------------------------- +!ifdef 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= + +[Debugging] +DebugSourceDirs=$(BCB)\source\vcl + +[Parameters] +RunParams= +HostApplication= + +!endif + +# --------------------------------------------------------------------------- +# MAKE SECTION +# --------------------------------------------------------------------------- +# This section of the project file is not used by the BCB IDE. It is for +# the benefit of building from the command-line using the MAKE utility. +# --------------------------------------------------------------------------- + +.autodepend +# --------------------------------------------------------------------------- +!if !$d(BCC32) +BCC32 = bcc32 +!endif + +!if !$d(DCC32) +DCC32 = dcc32 +!endif + +!if !$d(TASM32) +TASM32 = tasm32 +!endif + +!if !$d(LINKER) +LINKER = ilink32 +!endif + +!if !$d(BRCC32) +BRCC32 = brcc32 +!endif +# --------------------------------------------------------------------------- +!if $d(PATHCPP) +.PATH.CPP = $(PATHCPP) +.PATH.C = $(PATHCPP) +!endif + +!if $d(PATHPAS) +.PATH.PAS = $(PATHPAS) +!endif + +!if $d(PATHASM) +.PATH.ASM = $(PATHASM) +!endif + +!if $d(PATHRC) +.PATH.RC = $(PATHRC) +!endif +# --------------------------------------------------------------------------- +$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE) + $(BCB)\BIN\$(LINKER) @&&! + $(LFLAGS) + + $(ALLOBJ), + + $(PROJECT),, + + $(ALLLIB), + + $(DEFFILE), + + $(ALLRES) +! +# --------------------------------------------------------------------------- +.pas.hpp: + $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< } + +.pas.obj: + $(BCB)\BIN\$(DCC32) $(PFLAGS) {$< } + +.cpp.obj: + $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< } + +.c.obj: + $(BCB)\BIN\$(BCC32) $(CFLAG1) $(CFLAG2) $(CFLAG3) -n$(@D) {$< } + +.asm.obj: + $(BCB)\BIN\$(TASM32) $(AFLAGS) $<, $@ + +.rc.res: + $(BCB)\BIN\$(BRCC32) $(RFLAGS) -fo$@ $< +# --------------------------------------------------------------------------- diff --git a/Emp.cpp b/Emp.cpp new file mode 100644 index 0000000..3c5e52e --- /dev/null +++ b/Emp.cpp @@ -0,0 +1,21 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop +USERES("Emp.res"); +USEFORM("Empaquetador.cpp", Form1); +//--------------------------------------------------------------------------- +WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) +{ + try + { + Application->Initialize(); + Application->CreateForm(__classid(TForm1), &Form1); + Application->Run(); + } + catch (Exception &exception) + { + Application->ShowException(&exception); + } + return 0; +} +//--------------------------------------------------------------------------- diff --git a/Emp.exe b/Emp.exe new file mode 100644 index 0000000..31db015 Binary files /dev/null and b/Emp.exe differ diff --git a/Emp.res b/Emp.res new file mode 100644 index 0000000..79b1d56 Binary files /dev/null and b/Emp.res differ diff --git a/Empaquetador.cpp b/Empaquetador.cpp new file mode 100644 index 0000000..528ac22 --- /dev/null +++ b/Empaquetador.cpp @@ -0,0 +1,131 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop + +#include +#include + +#include "Empaquetador.h" +//--------------------------------------------------------------------------- +#pragma package(smart_init) +#pragma resource "*.dfm" +TForm1 *Form1; +//--------------------------------------------------------------------------- +__fastcall TForm1::TForm1(TComponent* Owner) + : TForm(Owner) +{ +} +//--------------------------------------------------------------------------- + +void __fastcall TForm1::Edit1DblClick(TObject *Sender) +{ + OpenDialog1->DefaultExt = "MTX"; + OpenDialog1->FileName = "*.mtx"; + if (OpenDialog1->Execute()) + { + Edit1->Text = OpenDialog1->FileName; + } +} +//--------------------------------------------------------------------------- + +void __fastcall TForm1::Edit4DblClick(TObject *Sender) +{ + OpenDialog1->DefaultExt = "ZIP"; + OpenDialog1->FileName = "*.zip"; + if (OpenDialog1->Execute()) + { + Edit4->Text = OpenDialog1->FileName; + } +} +//--------------------------------------------------------------------------- +void __fastcall TForm1::Memo1DblClick(TObject *Sender) +{ + OpenDialog1->DefaultExt = "TXT"; + OpenDialog1->FileName = "*.txt"; + if (OpenDialog1->Execute()) + { + Memo1->Lines->LoadFromFile( OpenDialog1->FileName ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TForm1::Memo2DblClick(TObject *Sender) +{ + OpenDialog1->DefaultExt = "TXT"; + OpenDialog1->FileName = "*.txt"; + if (OpenDialog1->Execute()) + { + Memo2->Lines->LoadFromFile( OpenDialog1->FileName ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TForm1::Anexa( FILE *out, AnsiString FICH ) + { + FILE *mtx; int charc; + + if ( (mtx = fopen( (FICH.c_str()), "rb" ) ) != NULL ) + { + while( (charc = fgetc(mtx) ) != EOF ) + fputc( charc, out ); + fclose( mtx ); + } + } +//--------------------------------------------------------------------------- +int FILE_LENGHT( char *X ) +{ + int handle, Y; + handle = open( X, 0 ); + Y = filelength(handle); + close(handle); + return Y; +} +//--------------------------------------------------------------------------- +void __fastcall TForm1::Button1Click(TObject *Sender) +{ + SaveDialog1->DefaultExt = "EXE"; + SaveDialog1->FileName = "*.exe"; + if (SaveDialog1->Execute()) + { + long longitud; + FILE *out; +#define infor "TMP1-informacion.txt" +#define licencia "TMP2-licencia.txt" + if ( (out = fopen( (SaveDialog1->FileName).c_str(), "wb" ) ) != NULL ) + { + // Copiamos MATRIX + Anexa( out, Edit1->Text ); + // Informacion de interes... + char longt; + longt = (char)Edit2->Text.Length(); + fputc( longt, out ); + longt = (char)Edit3->Text.Length() + 4; + fputc( longt, out ); + fputc( 0x00, out ); + fputc( 0x00, out ); + + int tinfo, tlic; + Memo1->Lines->SaveToFile( infor ); + tinfo = FILE_LENGHT( infor ); + Memo2->Lines->SaveToFile( licencia ); + tlic = FILE_LENGHT( licencia ); + + fwrite( &tinfo, sizeof( int ), 1, out ); + fwrite( &tlic, sizeof( int ), 1, out ); + fputc( 0x00, out ); + fputc( 0x00, out ); + fputc( 0x00, out ); + fputc( 0x00, out ); + fputc( 0x80, out ); + fputc( 0x92, out ); + fputc( 0x00, out ); + fputc( 0x00, out ); + fputs( (Edit2->Text).c_str(), out ); + fputs( (Edit3->Text).c_str(), out ); + fputs( ".INF", out ); + Anexa( out, infor ); + Anexa( out, licencia ); + Anexa( out, Edit4->Text ); + fclose( out ); + } + } +} +//--------------------------------------------------------------------------- diff --git a/Empaquetador.dfm b/Empaquetador.dfm new file mode 100644 index 0000000..a0a3ef8 Binary files /dev/null and b/Empaquetador.dfm differ diff --git a/Empaquetador.h b/Empaquetador.h new file mode 100644 index 0000000..4546cd1 --- /dev/null +++ b/Empaquetador.h @@ -0,0 +1,37 @@ +//--------------------------------------------------------------------------- +#ifndef EmpaquetadorH +#define EmpaquetadorH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +class TForm1 : public TForm +{ +__published: // IDE-managed Components + TMemo *Memo1; + TMemo *Memo2; + TEdit *Edit1; + TEdit *Edit2; + TEdit *Edit3; + TEdit *Edit4; + TButton *Button1; + TOpenDialog *OpenDialog1; + TSaveDialog *SaveDialog1; + void __fastcall Edit1DblClick(TObject *Sender); + void __fastcall Edit4DblClick(TObject *Sender); + void __fastcall Memo1DblClick(TObject *Sender); + void __fastcall Memo2DblClick(TObject *Sender); + void __fastcall Button1Click(TObject *Sender); +private: // User declarations + void __fastcall Anexa( FILE *out, AnsiString FICH ); + +public: // User declarations + __fastcall TForm1(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern PACKAGE TForm1 *Form1; +//--------------------------------------------------------------------------- +#endif diff --git a/Matrix2.mtx b/Matrix2.mtx new file mode 100644 index 0000000..ffbe431 Binary files /dev/null and b/Matrix2.mtx differ diff --git a/README.md b/README.md new file mode 100644 index 0000000..6c4f8d1 --- /dev/null +++ b/README.md @@ -0,0 +1,9 @@ +#Empaquetador + + +*05/03/2000* + +ToDo: wwtcf? + + +![screenshot](/Empaquetador.png "Screenshot")