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

104
Test/TestLM.bpr Normal file
View File

@ -0,0 +1,104 @@
<?xml version='1.0' encoding='utf-8' ?>
<!-- C++Builder XML Project -->
<PROJECT>
<MACROS>
<VERSION value="BCB.05.03"/>
<PROJECT value="TestLM.exe"/>
<OBJFILES value="TestLM.obj test.obj"/>
<RESFILES value="TestLM.res"/>
<IDLFILES value=""/>
<IDLGENFILES value=""/>
<DEFFILE value=""/>
<RESDEPEN value="$(RESFILES) test.dfm"/>
<LIBFILES value=""/>
<LIBRARIES value="LM2000_vcl.lib VCL50.lib"/>
<SPARELIBS value="VCL50.lib LM2000_vcl.lib"/>
<PACKAGES value="VCL50.bpi VCLX50.bpi bcbsmp50.bpi VCLDB50.bpi VCLADO50.bpi ibsmp50.bpi
VCLBDE50.bpi VCLDBX50.bpi QRPT50.bpi TEEUI50.bpi TEEDB50.bpi TEE50.bpi
DSS50.bpi TEEQR50.bpi VCLIB50.bpi VCLMID50.bpi VCLIE50.bpi INETDB50.bpi
INET50.bpi NMFAST50.bpi WEBMID50.bpi bcbie50.bpi dclocx50.bpi
bcb2kaxserver50.bpi asgc5.bpi CabForCB.bpi CoolPack.bpi JDsoft.bpi
PhantomPack.bpi RAS_Tools.bpi LM2000_vcl.bpi"/>
<PATHCPP value=".;"/>
<PATHPAS value=".;"/>
<PATHRC value=".;"/>
<PATHASM value=".;"/>
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
<RELEASELIBPATH value="$(BCB)\lib\release"/>
<LINKER value="tlink32"/>
<USERDEFINES value="_DEBUG"/>
<SYSDEFINES value="NO_STRICT"/>
<MAINSOURCE value="TestLM.cpp"/>
<INCLUDEPATH value="..\LM2000_vcl;$(BCB)\include;$(BCB)\include\vcl"/>
<LIBPATH value="..\..\VCLs\lib;..\LM2000_vcl;$(BCB)\lib\obj;$(BCB)\lib"/>
<WARNINGS value="-w-par"/>
</MACROS>
<OPTIONS>
<IDLCFLAGS value="-I..\LM2000_vcl -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp
-D_DEBUG -boa"/>
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
-tW -tWM"/>
<PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
<RFLAGS value=""/>
<AFLAGS value="/mx /w2 /zd"/>
<LFLAGS value="-D&quot;&quot; -aa -Tpe -x -Gn -v"/>
</OPTIONS>
<LINKER>
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
<ALLRES value="$(RESFILES)"/>
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
</LINKER>
<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=
RemoteHost=
RemotePath=
RemoteDebug=0
[Compiler]
ShowInfoMsgs=0
LinkDebugVcl=0
LinkCGLIB=0
[CORBA]
AddServerUnit=1
AddClientUnit=1
PrecompiledHeaders=1
[Language]
ActiveLang=
ProjectLang=
RootDir=
</IDEOPTIONS>
</PROJECT>

22
Test/TestLM.cpp Normal file
View File

@ -0,0 +1,22 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("TestLM.res");
USEFORM("test.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;
}
//---------------------------------------------------------------------------

BIN
Test/TestLM.exe Normal file
View File

Binary file not shown.

BIN
Test/TestLM.res Normal file
View File

Binary file not shown.

59
Test/test.cpp Normal file
View File

@ -0,0 +1,59 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "test.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "LM2000"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
Lm2000->AbrePuerto("COM1");
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::Lm2000BuscaTarjeta(int ID, int FGA, int TPA,
int CDA, int *TPR, int *PNR, char *message)
{
return CheckBox1->Checked;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
Lm2000->CierraPuerto();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Lm2000->PassageOpening( 1, 1 );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Lm2000->PassageOpening( 1, 2 );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Lm2000->PassageOpening( 1, 3 );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Lm2000->PassageOpening( 1, 4 );
}
//---------------------------------------------------------------------------
bool __fastcall TForm1::Lm2000VerboseMessage(AnsiString msg)
{
return true;
}
//---------------------------------------------------------------------------

67
Test/test.dfm Normal file
View File

@ -0,0 +1,67 @@
object Form1: TForm1
Left = 197
Top = 174
Width = 425
Height = 320
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 8
Top = 8
Width = 193
Height = 113
Caption = 'Salida por defecto, del cabezal 1'
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 8
Top = 136
Width = 193
Height = 113
Caption = 'Salida por defecto, del cabezal 2'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 216
Top = 8
Width = 193
Height = 113
Caption = 'Salida 1'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 216
Top = 136
Width = 193
Height = 113
Caption = 'Salida 2'
TabOrder = 3
OnClick = Button4Click
end
object CheckBox1: TCheckBox
Left = 8
Top = 264
Width = 145
Height = 17
Caption = 'Las tarjetas son corectas'
TabOrder = 4
end
object Lm2000: TLm2000
OnVerboseMessage = Lm2000VerboseMessage
OnBuscaTarjeta = Lm2000BuscaTarjeta
Left = 376
Top = 16
end
end

36
Test/test.h Normal file
View File

@ -0,0 +1,36 @@
//---------------------------------------------------------------------------
#ifndef testH
#define testH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "LM2000.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TButton *Button1;
TButton *Button2;
TButton *Button3;
TButton *Button4;
TLm2000 *Lm2000;
TCheckBox *CheckBox1;
bool __fastcall Lm2000BuscaTarjeta(int ID, int FGA, int TPA,
int CDA, int *TPR, int *PNR, char *message);
void __fastcall FormDestroy(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
bool __fastcall Lm2000VerboseMessage(AnsiString msg);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif