Commit 8fba3662 by Elias Sarraf

cleaned project - got it to compile

parent aea23046
TwilioMsgs/dev/__history/ __history/
TwilioMsgs/dev/__recovery/ __recovery/
TwilioMsgs/dev/Win32/ Win32/
TwilioMsgs/dev/Win64x/
*.ilc *.ilc
*.ild *.ild
*.ilf *.ilf
*.ils
*.skincfg *.skincfg
*.tds *.tds
*.exe *.exe
*.map
*.local
...@@ -4,12 +4,12 @@ ...@@ -4,12 +4,12 @@
<ProjectVersion>20.2</ProjectVersion> <ProjectVersion>20.2</ProjectVersion>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<AppType>Application</AppType> <AppType>Application</AppType>
<MainSource>Project1.cpp</MainSource> <MainSource>TwilioMsgs.cpp</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform> <Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1048577</TargetedPlatforms> <TargetedPlatforms>1048577</TargetedPlatforms>
<ProjectName Condition="'$(ProjectName)'==''">Project1</ProjectName> <ProjectName Condition="'$(ProjectName)'==''">TwilioMsgs</ProjectName>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
...@@ -81,7 +81,9 @@ ...@@ -81,7 +81,9 @@
<Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon> <Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
<UWP_CppLogo44>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_44.png</UWP_CppLogo44> <UWP_CppLogo44>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_44.png</UWP_CppLogo44>
<UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150> <UWP_CppLogo150>$(BDS)\bin\Artwork\Windows\UWP\cppreg_UwpDefault_150.png</UWP_CppLogo150>
<SanitizedProjectName>Project1</SanitizedProjectName> <SanitizedProjectName>TwilioMsgs</SanitizedProjectName>
<IncludePath>dev\;..\;$(IncludePath)</IncludePath>
<ILINK_LibraryPath>dev\;..\;$(ILINK_LibraryPath)</ILINK_LibraryPath>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<PackageImports>AcroPDF;addict4_d28;addict4db_d28;adortl;AdvChartDEDXE14;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CEF4Delphi;CloudService;crcontrols280;CustomIPTransport;dac280;dacfmx280;dacvcl280;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;EMComponents;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCDashboardPackPkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;frx28;frxDB28;frxe28;gtACEExpD28;gtAdvGridExpD28;gtDocEngD28;gtFRExpD28;gtHtmVwExpD28;gtPDFkitD11ProP;gtQRExpD28;gtRaveExpD28;gtRBExpD28;gtRichVwExpD28;gtScaleRichVwExpD28;gtXPressExpD28;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;ipstudiowinwordxp;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;SigPlus;SKIA_FlexCel_Core;soapmidas;soaprtl;soapserver;TatukGIS_DK11_RX11;TatukGIS_DK11_RX11_FMX;TatukGIS_DK11_RX11_VCL;tethering;TMSCloudPkgDEDXE14;TMSCloudPkgDXE14;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgWizDXE14;TMSVCLUIPackPkgXlsDXE14;unidac280;unidacfmx280;unidacvcl280;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vclCryptoPressStreamD28;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;vclSQLMemTabled28;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;vquery280;WPViewPDF_DT;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports> <PackageImports>AcroPDF;addict4_d28;addict4db_d28;adortl;AdvChartDEDXE14;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CEF4Delphi;CloudService;crcontrols280;CustomIPTransport;dac280;dacfmx280;dacvcl280;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;EMComponents;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCDashboardPackPkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;frx28;frxDB28;frxe28;gtACEExpD28;gtAdvGridExpD28;gtDocEngD28;gtFRExpD28;gtHtmVwExpD28;gtPDFkitD11ProP;gtQRExpD28;gtRaveExpD28;gtRBExpD28;gtRichVwExpD28;gtScaleRichVwExpD28;gtXPressExpD28;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;ipstudiowinwordxp;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;SigPlus;SKIA_FlexCel_Core;soapmidas;soaprtl;soapserver;TatukGIS_DK11_RX11;TatukGIS_DK11_RX11_FMX;TatukGIS_DK11_RX11_VCL;tethering;TMSCloudPkgDEDXE14;TMSCloudPkgDXE14;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgWizDXE14;TMSVCLUIPackPkgXlsDXE14;unidac280;unidacfmx280;unidacvcl280;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vclCryptoPressStreamD28;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;vclSQLMemTabled28;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;vquery280;WPViewPDF_DT;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports>
...@@ -92,12 +94,12 @@ ...@@ -92,12 +94,12 @@
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang> <BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''"> <PropertyGroup Condition="'$(Base_Win64)'!=''">
<PackageImports>adortl;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CloudService;CustomIPTransport;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;soapmidas;soaprtl;soapserver;tethering;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgXlsDXE14;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports> <PackageImports>adortl;AdvChartDXE14;appanalytics;bcbie;bcbsmp;bindcomp;bindcompdbx;bindcompfmx;bindcompvcl;bindcompvclsmp;bindcompvclwinx;bindengine;CamRemoteD11;CloudService;CustomIPTransport;dbexpress;dbrtl;dbxcds;DbxClientDriver;DbxCommonDriver;DBXInterBaseDriver;DBXMySQLDriver;DBXSqliteDriver;dsnap;dsnapcon;dsnapxml;fcstudiowin;FireDAC;FireDACADSDriver;FireDACCommon;FireDACCommonDriver;FireDACCommonODBC;FireDACIBDriver;FireDACMSAccDriver;FireDACMySQLDriver;FireDACPgDriver;FireDACSqliteDriver;FlexCel_Core;FlexCel_Pdf;FlexCel_Render;FlexCel_Report;FlexCel_XlsAdapter;fmx;FMX_FlexCel_Components;FMX_FlexCel_Core;fmxase;fmxdae;fmxFireDAC;fmxobj;FMXTMSFNCCorePkgDXE14;FMXTMSFNCMapsPkgDXE14;FMXTMSFNCUIPackPkgDXE14;IndyCore;IndyIPClient;IndyIPCommon;IndyIPServer;IndyProtocols;IndySystem;inet;inetdb;inetdbxpress;ipstudiowin;ipstudiowinclient;PKIECtrl28;PKIEDB28;QRWRunDXE11_w64;RESTBackendComponents;RESTComponents;rtl;soapmidas;soaprtl;soapserver;tethering;TMSVCLUIPackPkgDXE14;TMSVCLUIPackPkgExDXE14;TMSVCLUIPackPkgXlsDXE14;vcl;VCL_FlexCel_Components;VCL_FlexCel_Core;vclactnband;vcldb;vcldsnap;vcledge;vclFireDAC;vclie;vclimg;VCLRESTComponents;VclSmp;VCLTMSFNCCorePkgDXE14;VCLTMSFNCDashboardPackPkgDXE14;VCLTMSFNCMapsPkgDXE14;VCLTMSFNCUIPackPkgDXE14;vcltouch;vclwinx;vclx;VirtualTreesR;WPViewPDF_RT;xmlrtl;$(PackageImports)</PackageImports>
<IncludePath>$(BDSINCLUDE)\windows\vcl;$(IncludePath)</IncludePath> <IncludePath>$(BDSINCLUDE)\windows\vcl;$(IncludePath)</IncludePath>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang> <BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64x)'!=''"> <PropertyGroup Condition="'$(Base_Win64x)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
...@@ -107,7 +109,7 @@ ...@@ -107,7 +109,7 @@
<VerInfo_Locale>1033</VerInfo_Locale> <VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<BCC_EnableBatchCompilation>true</BCC_EnableBatchCompilation> <BCC_EnableBatchCompilation>true</BCC_EnableBatchCompilation>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang> <BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''"> <PropertyGroup Condition="'$(Cfg_1)'!=''">
<BCC_OptimizeForSpeed>false</BCC_OptimizeForSpeed> <BCC_OptimizeForSpeed>false</BCC_OptimizeForSpeed>
...@@ -157,27 +159,20 @@ ...@@ -157,27 +159,20 @@
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode> <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<CppCompile Include="fDocEntryFind.cpp"> <CppCompile Include="fMain.cpp">
<Form>frmDocEntryFind</Form> <Form>frmMain</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DependentOn>fDocEntryFind.h</DependentOn> <DependentOn>fMain.h</DependentOn>
<BuildOrder>3</BuildOrder> <BuildOrder>2</BuildOrder>
</CppCompile> </CppCompile>
<CppCompile Include="Project1.cpp"> <CppCompile Include="TwilioMsgs.cpp">
<BuildOrder>0</BuildOrder> <BuildOrder>0</BuildOrder>
</CppCompile> </CppCompile>
<PCHCompile Include="Project1PCH1.h"> <PCHCompile Include="TwilioMsgsPCH2.h">
<BuildOrder>1</BuildOrder> <BuildOrder>1</BuildOrder>
<PCH>true</PCH> <PCH>true</PCH>
</PCHCompile> </PCHCompile>
<CppCompile Include="Unit1.cpp"> <FormResources Include="fMain.dfm"/>
<Form>Form1</Form>
<FormType>dfm</FormType>
<DependentOn>Unit1.h</DependentOn>
<BuildOrder>2</BuildOrder>
</CppCompile>
<FormResources Include="Unit1.dfm"/>
<FormResources Include="fDocEntryFind.dfm"/>
<BuildConfiguration Include="Base"> <BuildConfiguration Include="Base">
<Key>Base</Key> <Key>Base</Key>
</BuildConfiguration> </BuildConfiguration>
...@@ -202,7 +197,7 @@ ...@@ -202,7 +197,7 @@
<ProjectProperties Name="IndexFiles">False</ProjectProperties> <ProjectProperties Name="IndexFiles">False</ProjectProperties>
</ProjectProperties> </ProjectProperties>
<Source> <Source>
<Source Name="MainSource">Project1.cpp</Source> <Source Name="MainSource">TwilioMsgs.cpp</Source>
</Source> </Source>
<Excluded_Packages> <Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages> <Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
...@@ -268,20 +263,20 @@ ...@@ -268,20 +263,20 @@
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput"/> <DeployFile LocalName=".\TwilioMsgs.exe" Configuration="Debug" Class="ProjectOutput">
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32"> <Platform Name="Win32">
<RemoteName>Project1.exe</RemoteName> <RemoteName>TwilioMsgs.exe</RemoteName>
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols"/> <DeployFile LocalName=".\TwilioMsgs.tds" Configuration="Debug" Class="DebugSymbols">
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols">
<Platform Name="Win32"> <Platform Name="Win32">
<RemoteName>Project1.tds</RemoteName> <RemoteName>TwilioMsgs.tds</RemoteName>
<Overwrite>true</Overwrite> <Overwrite>true</Overwrite>
</Platform> </Platform>
</DeployFile> </DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols"/>
<DeployClass Name="AdditionalDebugSymbols"> <DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator"> <Platform Name="iOSSimulator">
<Operation>1</Operation> <Operation>1</Operation>
......
...@@ -4,8 +4,7 @@ ...@@ -4,8 +4,7 @@
#pragma hdrstop #pragma hdrstop
#include <tchar.h> #include <tchar.h>
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1); USEFORM("fMain.cpp", frmMain);
USEFORM("fDocEntryFind.cpp", frmDocEntryFind);
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{ {
...@@ -13,7 +12,7 @@ int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int) ...@@ -13,7 +12,7 @@ int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{ {
Application->Initialize(); Application->Initialize();
Application->MainFormOnTaskBar = true; Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TForm1), &Form1); Application->CreateForm(__classid(TfrmMain), &frmMain);
Application->Run(); Application->Run();
} }
catch (Exception &exception) catch (Exception &exception)
......
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2023/10/31 23:31:08.000.427,=C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.cpp</Transaction>
<Transaction>2023/10/31 23:31:08.000.411,=C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1PCH1.h</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1.cbproj=C:\Projects2\Twilio\TwilioPhoneApp\Project1.cbproj</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.h=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.h</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.dfm</Transaction>
<Transaction>2023/10/31 23:32:16.000.625,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Unit1.cpp=C:\Projects2\Twilio\TwilioPhoneApp\Unit1.cpp</Transaction>
<Transaction>2023/10/31 23:32:16.000.609,C:\Users\Admin\Documents\Embarcadero\Studio\Projects\Project1PCH1.h=C:\Projects2\Twilio\TwilioPhoneApp\Project1PCH1.h</Transaction>
<Transaction>2023/11/07 21:20:30.000.406,=C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\JSONDictionaryPkg.lib</Transaction>
<Transaction>2023/11/08 22:57:12.000.558,=C:\Users\Public\Documents\Embarcadero\Studio\22.0\Dcp\DictionaryPackage.lib</Transaction>
<Transaction>2025/02/11 12:37:55.000.601,=C:\Projects2\Twilio\TwilioMsgs.vcl\dev\fDocEntryFind.cpp</Transaction>
</Transactions>
</BorlandProject>
Start Length Name Class
0001:00401000 000DEB888H _TEXT CODE
0002:011ED000 00003BE10H _DATA DATA
0003:01228E10 00002B484H _BSS BSS
0004:00000000 000000104H _TLS TLS
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "fDocEntryFind.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvDateTimePicker"
#pragma link "AdvEdit"
#pragma link "AdvGlowButton"
#pragma link "AdvGrid"
#pragma link "AdvPanel"
#pragma link "AdvSmoothPanel"
#pragma link "AdvToolBar"
#pragma link "BaseGrid"
#pragma link "DBAdvGrid"
#pragma link "AdvDBDateTimePicker"
#pragma link "DBAccess"
#pragma link "MemDS"
#pragma link "Uni"
#pragma link "AdvEdBtn"
#pragma link "PlannerDatePicker"
#pragma link "AdvPageControl"
#pragma link "AdvOfficeButtons"
#pragma link "AdvObj"
#pragma link "AdvUtil"
#pragma link "vcl.Wwdbcomb"
#pragma link "vcl.Wwdbedit"
#pragma link "vcl.Wwdotdot"
#pragma link "vcl.wwdbdatetimepicker"
#pragma resource "*.dfm"
TfrmDocEntryFind *frmDocEntryFind;
//---------------------------------------------------------------------------
__fastcall TfrmDocEntryFind::TfrmDocEntryFind(TComponent* Owner)
: TForm(Owner)
{
TDateTime dtDate = Date();
unsigned short year, month, day;
dtDate.DecodeDate(&year, &month, &day);
for( int i = 0; i < 12; i++ )
dbcbYear->Items->Add( year - i );
dbcbYear->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void TfrmDocEntryFind::FindDocuments()
{
String whereStr;
whereStr = "";
if( !dtpDocDate->Text.IsEmpty() && !dtpDocDate2->Text.IsEmpty() )
whereStr = "d.doc_date between '" + dtpDocDate->Text + "' and '" + dtpDocDate2->Text + "' and ";
else if( !dtpDocDate->Text.IsEmpty() )
whereStr = "d.doc_date = '" + dtpDocDate->Text + "' and ";
}
//---------------------------------------------------------------------------
void __fastcall TfrmDocEntryFind::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDocumentDates();
}
//---------------------------------------------------------------------------
void __fastcall TfrmDocEntryFind::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDocumentDates();
}
//---------------------------------------------------------------------------
void TfrmDocEntryFind::SetDocumentDates()
{
int year = 0;
int month = 0;
TDateTime startDate;
TDateTime endDate;
if( !dbcbYear->Value.IsEmpty() )
year = StrToInt( dbcbYear->Value );
if( !dbcbMonth->Value.IsEmpty() )
month = StrToInt( dbcbMonth->Value );
if( month > 0 && year > 0 ){
startDate = StartOfAMonth( year, month );
endDate = EndOfAMonth( year, month );
dtpDocDate->Date = startDate;
dtpDocDate2->Date = endDate;
}
else if (year > 0){
startDate = StartOfAMonth( year, 1 );
endDate = EndOfAMonth( year, 12 );
dtpDocDate->Date = startDate;
dtpDocDate2->Date = endDate;
}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
#ifndef fDocEntryFindH
#define fDocEntryFindH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "AdvDateTimePicker.hpp"
#include "AdvEdit.hpp"
#include "AdvGlowButton.hpp"
#include "AdvGrid.hpp"
#include "AdvPanel.hpp"
#include "AdvSmoothPanel.hpp"
#include "AdvToolBar.hpp"
#include "BaseGrid.hpp"
#include "DBAdvGrid.hpp"
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <Grids.hpp>
#include "AdvDBDateTimePicker.hpp"
#include "DBAccess.hpp"
#include "MemDS.hpp"
#include "Uni.hpp"
#include <DB.hpp>
#include "AdvEdBtn.hpp"
#include "PlannerDatePicker.hpp"
#include "AdvPageControl.hpp"
#include "AdvOfficeButtons.hpp"
#include "AdvObj.hpp"
#include "vcl.wwdblook.hpp"
#include <Vcl.Dialogs.hpp>
#include "AdvUtil.hpp"
#include "vcl.Wwdbcomb.hpp"
#include "vcl.Wwdbedit.hpp"
#include "vcl.Wwdotdot.hpp"
#include <Vcl.Mask.hpp>
#include "vcl.wwdbdatetimepicker.hpp"
//---------------------------------------------------------------------------
class TfrmDocEntryFind : public TForm
{
__published: // IDE-managed Components
TAdvPanel *pnlMain;
TUniQuery *uqDocFind;
TDataSource *dsDocFind;
TIntegerField *uqDocFindDOC_ID;
TDateField *uqDocFindDOC_DATE;
TFloatField *uqDocFindAMOUNT;
TStringField *uqDocFindDAccountFrom;
TStringField *uqDocFindDOC_DESC;
TIntegerField *uqDocFindACCOUNT_FROM;
TIntegerField *uqDocFindACCOUNT;
TStringField *uqDocFindDAccount;
TStringField *uqDocFindDDocType;
TIntegerField *uqDocFindDOC_TYPE;
TStringField *uqDocFindREF_NUM;
TFloatField *uqDocFindDUE_AMOUNT;
TDateField *uqDocFindDUE_DATE;
TAdvPanel *AdvPanel1;
TAdvGlowButton *btnOk;
TAdvGlowButton *btnCancel;
TAdvEdit *txtRecCount;
TAdvGlowButton *AdvGlowButton1;
TLabel *Label1;
TwwDBDateTimePicker *dtpDocDate;
TLabel *Label2;
TwwDBDateTimePicker *dtpDocDate2;
TwwDBComboBox *dbcbMonth;
TwwDBComboBox *dbcbYear;
TUniQuery *uqMisc;
TDBAdvGrid *dbgrdDocData;
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
private: // User declarations
public: // User declarations
String sqlStr;
__fastcall TfrmDocEntryFind(TComponent* Owner);
void SetDocumentDates();
void FindDocuments();
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmDocEntryFind *frmDocEntryFind;
//---------------------------------------------------------------------------
#endif
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
#include <vcl.h> #include <vcl.h>
#pragma hdrstop #pragma hdrstop
#include "Unit1.h" #include "fMain.h"
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#pragma package(smart_init) #pragma package(smart_init)
#pragma link "AdvGrid" #pragma link "AdvGrid"
...@@ -26,9 +26,9 @@ ...@@ -26,9 +26,9 @@
#pragma link "UniProvider" #pragma link "UniProvider"
#pragma resource "*.dfm" #pragma resource "*.dfm"
TForm1 *Form1; TfrmMain *frmMain;
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) __fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner) : TForm(Owner)
{ {
pagesLoaded = 0; pagesLoaded = 0;
...@@ -41,23 +41,22 @@ __fastcall TForm1::TForm1(TComponent* Owner) ...@@ -41,23 +41,22 @@ __fastcall TForm1::TForm1(TComponent* Owner)
dtNow.DecodeDate(&y, &m, &d); dtNow.DecodeDate(&y, &m, &d);
for(int i = 0; i < 12; i++) for(int i = 0; i < 12; i++)
dbcbYear->Items->Add(y - i); dbcbYear->Items->Add(y - i);
static String sMonths[12] = { static String sMonths[12] = {
"January","February","March","April","May","June", "January","February","March","April","May","June",
"July","August","September","October","November","December" "July","August","September","October","November","December"
}; };
for(int i = 0; i < 12; i++) for(int i = 0; i < 12; i++)
dbcbMonth->Items->Add(sMonths[i]); dbcbMonth->Items->Add(sMonths[i]);
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::btnExitClick(TObject *Sender) void __fastcall TfrmMain::btnExitClick(TObject *Sender)
{ {
Close(); Close();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::btnMessagesClick(TObject *Sender) void __fastcall TfrmMain::btnMessagesClick(TObject *Sender)
{ {
String res = BuildMessageRequestURL(); String res = BuildMessageRequestURL();
TJSONValue* jValue; TJSONValue* jValue;
...@@ -155,7 +154,7 @@ void __fastcall TForm1::btnMessagesClick(TObject *Sender) ...@@ -155,7 +154,7 @@ void __fastcall TForm1::btnMessagesClick(TObject *Sender)
delete pRESTResponse; delete pRESTResponse;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages) void TfrmMain::SaveMessagesToDB(TJSONArray* jaMessages)
{ {
if (!jaMessages || jaMessages->Count == 0) if (!jaMessages || jaMessages->Count == 0)
return; return;
...@@ -212,7 +211,7 @@ void TForm1::SaveMessagesToDB(TJSONArray* jaMessages) ...@@ -212,7 +211,7 @@ void TForm1::SaveMessagesToDB(TJSONArray* jaMessages)
} }
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr) TDateTime TfrmMain::ParseTwilioDateTime(String dateStr)
{ {
// Twilio format: "Wed, 12 Feb 2025 18:21:17 +0000" // Twilio format: "Wed, 12 Feb 2025 18:21:17 +0000"
std::map<UnicodeString, int> monthMap; std::map<UnicodeString, int> monthMap;
...@@ -221,9 +220,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr) ...@@ -221,9 +220,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr)
monthMap["Jul"] = 7; monthMap["Aug"] = 8; monthMap["Sep"] = 9; monthMap["Jul"] = 7; monthMap["Aug"] = 8; monthMap["Sep"] = 9;
monthMap["Oct"] = 10; monthMap["Nov"] = 11; monthMap["Dec"] = 12; monthMap["Oct"] = 10; monthMap["Nov"] = 11; monthMap["Dec"] = 12;
UnicodeString cleanedDateStr = dateStr.SubString(6, dateStr.Length() - 5); String cleanedDateStr = dateStr.SubString(6, 20);
cleanedDateStr = cleanedDateStr.SubString(1, cleanedDateStr.Length() - 6);
TStringList *parts = new TStringList(); TStringList *parts = new TStringList();
parts->Delimiter = ' '; parts->Delimiter = ' ';
...@@ -263,7 +260,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr) ...@@ -263,7 +260,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr)
return result; return result;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
String TForm1::BuildMessageRequestURL() String TfrmMain::BuildMessageRequestURL()
{ {
String url = "/2010-04-01/Accounts/" + accountSid + "/Messages.json"; String url = "/2010-04-01/Accounts/" + accountSid + "/Messages.json";
String pageSizeStr = edtPageSize->Text.Trim(); String pageSizeStr = edtPageSize->Text.Trim();
...@@ -304,7 +301,7 @@ String TForm1::BuildMessageRequestURL() ...@@ -304,7 +301,7 @@ String TForm1::BuildMessageRequestURL()
return url; return url;
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData) void TfrmMain::GetFieldsFromJsonArray(TJSONArray* jaData)
{ {
String fieldname; String fieldname;
String str; String str;
...@@ -325,7 +322,7 @@ void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData) ...@@ -325,7 +322,7 @@ void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData)
} }
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::LoadJsonArray(TJSONArray* jaData, String detail) void TfrmMain::LoadJsonArray(TJSONArray* jaData, String detail)
{ {
TJSONObject* jso; TJSONObject* jso;
grdData->ClearAll(); grdData->ClearAll();
...@@ -361,7 +358,7 @@ void TForm1::LoadJsonArray(TJSONArray* jaData, String detail) ...@@ -361,7 +358,7 @@ void TForm1::LoadJsonArray(TJSONArray* jaData, String detail)
grdData->EndUpdate(); grdData->EndUpdate();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::AppendJsonArray(TJSONArray* jaData) void TfrmMain::AppendJsonArray(TJSONArray* jaData)
{ {
if(!jaData || jaData->Count == 0) if(!jaData || jaData->Count == 0)
return; return;
...@@ -383,17 +380,17 @@ void TForm1::AppendJsonArray(TJSONArray* jaData) ...@@ -383,17 +380,17 @@ void TForm1::AppendJsonArray(TJSONArray* jaData)
grdData->EndUpdate(); grdData->EndUpdate();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select) void __fastcall TfrmMain::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
{ {
SetDatePickersFromMonthYear(); SetDatePickersFromMonthYear();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select) void __fastcall TfrmMain::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
{ {
SetDatePickersFromMonthYear(); SetDatePickersFromMonthYear();
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void TForm1::SetDatePickersFromMonthYear() void TfrmMain::SetDatePickersFromMonthYear()
{ {
int year = 0; int year = 0;
int month = 0; int month = 0;
...@@ -434,7 +431,7 @@ void TForm1::SetDatePickersFromMonthYear() ...@@ -434,7 +431,7 @@ void TForm1::SetDatePickersFromMonthYear()
} }
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TForm1::btnNextPageClick(TObject *Sender) void __fastcall TfrmMain::btnNextPageClick(TObject *Sender)
{ {
// Stop if there's no next page URI // Stop if there's no next page URI
if (txtNextPageUri->Text.Trim().IsEmpty() || txtNextPageUri->Text == "null") if (txtNextPageUri->Text.Trim().IsEmpty() || txtNextPageUri->Text == "null")
...@@ -494,6 +491,13 @@ void __fastcall TForm1::btnNextPageClick(TObject *Sender) ...@@ -494,6 +491,13 @@ void __fastcall TForm1::btnNextPageClick(TObject *Sender)
delete pRESTRequest; delete pRESTRequest;
delete pRESTResponse; delete pRESTResponse;
} }
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Button1Click(TObject *Sender)
{
TDateTime dt;
dt = ParseTwilioDateTime( "Wed, 12 Feb 2025 18:21:17 +0000" );
Memo1->Lines->Add( dt.DateTimeString() );
}
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
object Form1: TForm1 object frmMain: TfrmMain
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'Form1' Caption = 'frmMain'
ClientHeight = 722 ClientHeight = 722
ClientWidth = 1184 ClientWidth = 1184
Color = clBtnFace Color = clBtnFace
...@@ -190,6 +190,15 @@ object Form1: TForm1 ...@@ -190,6 +190,15 @@ object Form1: TForm1
Caption = 'Save Messages to Database' Caption = 'Save Messages to Database'
TabOrder = 6 TabOrder = 6
end end
object Button1: TButton
Left = 440
Top = 76
Width = 139
Height = 25
Caption = 'DateTime Conversion'
TabOrder = 7
OnClick = Button1Click
end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 0 Left = 0
...@@ -1178,8 +1187,6 @@ object Form1: TForm1 ...@@ -1178,8 +1187,6 @@ object Form1: TForm1
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
WordWrap = False WordWrap = False
ExplicitLeft = 0
ExplicitTop = 2
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 1
...@@ -1213,8 +1220,6 @@ object Form1: TForm1 ...@@ -1213,8 +1220,6 @@ object Form1: TForm1
ScrollBars = ssVertical ScrollBars = ssVertical
TabOrder = 0 TabOrder = 0
WordWrap = False WordWrap = False
ExplicitLeft = 4
ExplicitTop = 0
end end
object Memo3: TMemo object Memo3: TMemo
Left = 596 Left = 596
...@@ -1256,8 +1261,8 @@ object Form1: TForm1 ...@@ -1256,8 +1261,8 @@ object Form1: TForm1
OnCloseUp = dbcbYearCloseUp OnCloseUp = dbcbYearCloseUp
end end
object btnNextPage: TButton object btnNextPage: TButton
Left = 784 Left = 780
Top = 43 Top = 39
Width = 83 Width = 83
Height = 25 Height = 25
Caption = 'Next Page' Caption = 'Next Page'
...@@ -1301,7 +1306,6 @@ object Form1: TForm1 ...@@ -1301,7 +1306,6 @@ object Form1: TForm1
Database = 'twilio_db' Database = 'twilio_db'
Username = 'postgres' Username = 'postgres'
Server = '192.168.102.130' Server = '192.168.102.130'
Connected = True
LoginPrompt = False LoginPrompt = False
Left = 562 Left = 562
Top = 169 Top = 169
...@@ -1311,7 +1315,6 @@ object Form1: TForm1 ...@@ -1311,7 +1315,6 @@ object Form1: TForm1
Connection = ucTwilioDB Connection = ucTwilioDB
SQL.Strings = ( SQL.Strings = (
'select * from public.messages') 'select * from public.messages')
Active = True
Left = 676 Left = 676
Top = 169 Top = 169
object uqMessagessid: TMemoField object uqMessagessid: TMemoField
......
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#ifndef Unit1H #ifndef fMainH
#define Unit1H #define fMainH
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#include <System.Classes.hpp> #include <System.Classes.hpp>
#include <Vcl.Controls.hpp> #include <Vcl.Controls.hpp>
...@@ -48,7 +48,7 @@ ...@@ -48,7 +48,7 @@
#include <SysUtils.hpp> #include <SysUtils.hpp>
#include <DateUtils.hpp> #include <DateUtils.hpp>
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
class TForm1 : public TForm class TfrmMain : public TForm
{ {
__published: // IDE-managed Components __published: // IDE-managed Components
TRESTClient *RESTClient1; TRESTClient *RESTClient1;
...@@ -109,29 +109,31 @@ __published: // IDE-managed Components ...@@ -109,29 +109,31 @@ __published: // IDE-managed Components
TMemoField *uqMessagesstatus; TMemoField *uqMessagesstatus;
TMemoField *uqMessagesto_number; TMemoField *uqMessagesto_number;
TMemoField *uqMessagesuri; TMemoField *uqMessagesuri;
TButton *Button1;
void __fastcall btnExitClick(TObject *Sender); void __fastcall btnExitClick(TObject *Sender);
void __fastcall btnMessagesClick(TObject *Sender); void __fastcall btnMessagesClick(TObject *Sender);
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select); void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select); void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall btnNextPageClick(TObject *Sender); void __fastcall btnNextPageClick(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations private: // User declarations
String accountSid; String accountSid;
String authHeader; String authHeader;
TStringList *fieldsList; TStringList *fieldsList;
int pagesLoaded; int pagesLoaded;
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages); void SaveMessagesToDB(TJSONArray* jaMessages);
void GetFieldsFromJsonArray(TJSONArray* jaData); void GetFieldsFromJsonArray(TJSONArray* jaData);
void LoadJsonArray(TJSONArray* jaData, String detail); void LoadJsonArray(TJSONArray* jaData, String detail);
void SetDatePickersFromMonthYear(); void SetDatePickersFromMonthYear();
void AppendJsonArray(TJSONArray* jaData); void AppendJsonArray(TJSONArray* jaData);
String TForm1::BuildMessageRequestURL(); String BuildMessageRequestURL();
public: // User declarations public: // User declarations
__fastcall TForm1(TComponent* Owner); __fastcall TfrmMain(TComponent* Owner);
TDateTime ParseTwilioDateTime(const UnicodeString &dateStr); TDateTime ParseTwilioDateTime(String dateStr);
}; };
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1; extern PACKAGE TfrmMain *frmMain;
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
#endif #endif
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment