Skip to content

T
TwilioMsgs
Commit 8fba3662 by Elias Sarraf
Options

cleaned project - got it to compile

parent aea23046
Showing with 78 additions and 278 deletions
.gitignore
TwilioMsgs/dev/__history/
TwilioMsgs/dev/__recovery/
TwilioMsgs/dev/Win32/
TwilioMsgs/dev/Win64x/
__history/
__recovery/
Win32/
*.ilc
*.ild
*.ilf
*.ils
*.skincfg
*.tds
*.exe
*.map
*.local
dev/Project1.cbproj → TwilioMsgs.cbproj
......@@ -4,12 +4,12 @@
<ProjectVersion>20.2</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<AppType>Application</AppType>
<MainSource>Project1.cpp</MainSource>
<MainSource>TwilioMsgs.cpp</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1048577</TargetedPlatforms>
<ProjectName Condition="'$(ProjectName)'==''">Project1</ProjectName>
<ProjectName Condition="'$(ProjectName)'==''">TwilioMsgs</ProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
......@@ -81,7 +81,9 @@
<Icon_MainIcon>$(BDS)\bin\cbuilder_PROJECTICON.ico</Icon_MainIcon>
<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>
<SanitizedProjectName>Project1</SanitizedProjectName>
<SanitizedProjectName>TwilioMsgs</SanitizedProjectName>
<IncludePath>dev\;..\;$(IncludePath)</IncludePath>
<ILINK_LibraryPath>dev\;..\;$(ILINK_LibraryPath)</ILINK_LibraryPath>
</PropertyGroup>
<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>
......@@ -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_Locale>1033</VerInfo_Locale>
<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 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>
<IncludePath>$(BDSINCLUDE)\windows\vcl;$(IncludePath)</IncludePath>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang>
<BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64x)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
......@@ -107,7 +109,7 @@
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
<BCC_EnableBatchCompilation>true</BCC_EnableBatchCompilation>
<BCC_PCHName_Clang>Project1PCH1.h</BCC_PCHName_Clang>
<BCC_PCHName_Clang>TwilioMsgsPCH2.h</BCC_PCHName_Clang>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<BCC_OptimizeForSpeed>false</BCC_OptimizeForSpeed>
......@@ -157,27 +159,20 @@
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<CppCompile Include="fDocEntryFind.cpp">
<Form>frmDocEntryFind</Form>
<CppCompile Include="fMain.cpp">
<Form>frmMain</Form>
<FormType>dfm</FormType>
<DependentOn>fDocEntryFind.h</DependentOn>
<BuildOrder>3</BuildOrder>
<DependentOn>fMain.h</DependentOn>
<BuildOrder>2</BuildOrder>
</CppCompile>
<CppCompile Include="Project1.cpp">
<CppCompile Include="TwilioMsgs.cpp">
<BuildOrder>0</BuildOrder>
</CppCompile>
<PCHCompile Include="Project1PCH1.h">
<PCHCompile Include="TwilioMsgsPCH2.h">
<BuildOrder>1</BuildOrder>
<PCH>true</PCH>
</PCHCompile>
<CppCompile Include="Unit1.cpp">
<Form>Form1</Form>
<FormType>dfm</FormType>
<DependentOn>Unit1.h</DependentOn>
<BuildOrder>2</BuildOrder>
</CppCompile>
<FormResources Include="Unit1.dfm"/>
<FormResources Include="fDocEntryFind.dfm"/>
<FormResources Include="fMain.dfm"/>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
......@@ -202,7 +197,7 @@
<ProjectProperties Name="IndexFiles">False</ProjectProperties>
</ProjectProperties>
<Source>
<Source Name="MainSource">Project1.cpp</Source>
<Source Name="MainSource">TwilioMsgs.cpp</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\bcboffice2k290.bpl">Embarcadero C++Builder Office 2000 Servers Package</Excluded_Packages>
......@@ -268,20 +263,20 @@
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput">
<DeployFile LocalName=".\TwilioMsgs.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>Project1.exe</RemoteName>
<RemoteName>TwilioMsgs.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols"/>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols">
<DeployFile LocalName=".\TwilioMsgs.tds" Configuration="Debug" Class="DebugSymbols">
<Platform Name="Win32">
<RemoteName>Project1.tds</RemoteName>
<RemoteName>TwilioMsgs.tds</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployFile LocalName=".\Win32\Debug\Project1.exe" Configuration="Debug" Class="ProjectOutput"/>
<DeployFile LocalName=".\Win32\Debug\Project1.tds" Configuration="Debug" Class="DebugSymbols"/>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
......
dev/Project1.cpp → TwilioMsgs.cpp
......@@ -4,8 +4,7 @@
#pragma hdrstop
#include <tchar.h>
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("fDocEntryFind.cpp", frmDocEntryFind);
USEFORM("fMain.cpp", frmMain);
//---------------------------------------------------------------------------
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
......@@ -13,7 +12,7 @@ int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
Application->Initialize();
Application->MainFormOnTaskBar = true;
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TfrmMain), &frmMain);
Application->Run();
}
catch (Exception &exception)
......
dev/Project1.cbproj.local deleted 100644 → 0
<?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>
dev/Project1.map deleted 100644 → 0
Start Length Name Class
0001:00401000 000DEB888H _TEXT CODE
0002:011ED000 00003BE10H _DATA DATA
0003:01228E10 00002B484H _BSS BSS
0004:00000000 000000104H _TLS TLS
dev/fDocEntryFind.cpp deleted 100644 → 0
//---------------------------------------------------------------------------
#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;
}
}
//---------------------------------------------------------------------------
dev/fDocEntryFind.h deleted 100644 → 0
//---------------------------------------------------------------------------
#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
dev/Unit1.cpp → fMain.cpp
......@@ -3,7 +3,7 @@
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "fMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "AdvGrid"
......@@ -26,9 +26,9 @@
#pragma link "UniProvider"
#pragma resource "*.dfm"
TForm1 *Form1;
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
: TForm(Owner)
{
pagesLoaded = 0;
......@@ -41,23 +41,22 @@ __fastcall TForm1::TForm1(TComponent* Owner)
dtNow.DecodeDate(&y, &m, &d);
for(int i = 0; i < 12; i++)
dbcbYear->Items->Add(y - i);
dbcbYear->Items->Add(y - i);
static String sMonths[12] = {
"January","February","March","April","May","June",
"July","August","September","October","November","December"
};
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();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnMessagesClick(TObject *Sender)
void __fastcall TfrmMain::btnMessagesClick(TObject *Sender)
{
String res = BuildMessageRequestURL();
TJSONValue* jValue;
......@@ -155,7 +154,7 @@ void __fastcall TForm1::btnMessagesClick(TObject *Sender)
delete pRESTResponse;
}
//---------------------------------------------------------------------------
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages)
void TfrmMain::SaveMessagesToDB(TJSONArray* jaMessages)
{
if (!jaMessages || jaMessages->Count == 0)
return;
......@@ -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"
std::map<UnicodeString, int> monthMap;
......@@ -221,9 +220,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr)
monthMap["Jul"] = 7; monthMap["Aug"] = 8; monthMap["Sep"] = 9;
monthMap["Oct"] = 10; monthMap["Nov"] = 11; monthMap["Dec"] = 12;
UnicodeString cleanedDateStr = dateStr.SubString(6, dateStr.Length() - 5);
cleanedDateStr = cleanedDateStr.SubString(1, cleanedDateStr.Length() - 6);
String cleanedDateStr = dateStr.SubString(6, 20);
TStringList *parts = new TStringList();
parts->Delimiter = ' ';
......@@ -263,7 +260,7 @@ TDateTime TForm1::ParseTwilioDateTime(const UnicodeString &dateStr)
return result;
}
//---------------------------------------------------------------------------
String TForm1::BuildMessageRequestURL()
String TfrmMain::BuildMessageRequestURL()
{
String url = "/2010-04-01/Accounts/" + accountSid + "/Messages.json";
String pageSizeStr = edtPageSize->Text.Trim();
......@@ -304,7 +301,7 @@ String TForm1::BuildMessageRequestURL()
return url;
}
//---------------------------------------------------------------------------
void TForm1::GetFieldsFromJsonArray(TJSONArray* jaData)
void TfrmMain::GetFieldsFromJsonArray(TJSONArray* jaData)
{
String fieldname;
String str;
......@@ -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;
grdData->ClearAll();
......@@ -361,7 +358,7 @@ void TForm1::LoadJsonArray(TJSONArray* jaData, String detail)
grdData->EndUpdate();
}
//---------------------------------------------------------------------------
void TForm1::AppendJsonArray(TJSONArray* jaData)
void TfrmMain::AppendJsonArray(TJSONArray* jaData)
{
if(!jaData || jaData->Count == 0)
return;
......@@ -383,17 +380,17 @@ void TForm1::AppendJsonArray(TJSONArray* jaData)
grdData->EndUpdate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
void __fastcall TfrmMain::dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDatePickersFromMonthYear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
void __fastcall TfrmMain::dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select)
{
SetDatePickersFromMonthYear();
}
//---------------------------------------------------------------------------
void TForm1::SetDatePickersFromMonthYear()
void TfrmMain::SetDatePickersFromMonthYear()
{
int year = 0;
int month = 0;
......@@ -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
if (txtNextPageUri->Text.Trim().IsEmpty() || txtNextPageUri->Text == "null")
......@@ -494,6 +491,13 @@ void __fastcall TForm1::btnNextPageClick(TObject *Sender)
delete pRESTRequest;
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() );
}
//---------------------------------------------------------------------------
dev/Unit1.dfm → fMain.dfm
object Form1: TForm1
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'Form1'
Caption = 'frmMain'
ClientHeight = 722
ClientWidth = 1184
Color = clBtnFace
......@@ -190,6 +190,15 @@ object Form1: TForm1
Caption = 'Save Messages to Database'
TabOrder = 6
end
object Button1: TButton
Left = 440
Top = 76
Width = 139
Height = 25
Caption = 'DateTime Conversion'
TabOrder = 7
OnClick = Button1Click
end
end
object Panel2: TPanel
Left = 0
......@@ -1178,8 +1187,6 @@ object Form1: TForm1
ScrollBars = ssVertical
TabOrder = 0
WordWrap = False
ExplicitLeft = 0
ExplicitTop = 2
end
object Panel4: TPanel
Left = 1
......@@ -1213,8 +1220,6 @@ object Form1: TForm1
ScrollBars = ssVertical
TabOrder = 0
WordWrap = False
ExplicitLeft = 4
ExplicitTop = 0
end
object Memo3: TMemo
Left = 596
......@@ -1256,8 +1261,8 @@ object Form1: TForm1
OnCloseUp = dbcbYearCloseUp
end
object btnNextPage: TButton
Left = 784
Top = 43
Left = 780
Top = 39
Width = 83
Height = 25
Caption = 'Next Page'
......@@ -1301,7 +1306,6 @@ object Form1: TForm1
Database = 'twilio_db'
Username = 'postgres'
Server = '192.168.102.130'
Connected = True
LoginPrompt = False
Left = 562
Top = 169
......@@ -1311,7 +1315,6 @@ object Form1: TForm1
Connection = ucTwilioDB
SQL.Strings = (
'select * from public.messages')
Active = True
Left = 676
Top = 169
object uqMessagessid: TMemoField
......
dev/Unit1.h → fMain.h
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
#ifndef fMainH
#define fMainH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
......@@ -48,7 +48,7 @@
#include <SysUtils.hpp>
#include <DateUtils.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
class TfrmMain : public TForm
{
__published: // IDE-managed Components
TRESTClient *RESTClient1;
......@@ -109,29 +109,31 @@ __published: // IDE-managed Components
TMemoField *uqMessagesstatus;
TMemoField *uqMessagesto_number;
TMemoField *uqMessagesuri;
TButton *Button1;
void __fastcall btnExitClick(TObject *Sender);
void __fastcall btnMessagesClick(TObject *Sender);
void __fastcall dbcbMonthCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall dbcbYearCloseUp(TwwDBComboBox *Sender, bool Select);
void __fastcall btnNextPageClick(TObject *Sender);
void __fastcall Button1Click(TObject *Sender);
private: // User declarations
String accountSid;
String authHeader;
TStringList *fieldsList;
int pagesLoaded;
void TForm1::SaveMessagesToDB(TJSONArray* jaMessages);
void SaveMessagesToDB(TJSONArray* jaMessages);
void GetFieldsFromJsonArray(TJSONArray* jaData);
void LoadJsonArray(TJSONArray* jaData, String detail);
void SetDatePickersFromMonthYear();
void AppendJsonArray(TJSONArray* jaData);
String TForm1::BuildMessageRequestURL();
String BuildMessageRequestURL();
public: // User declarations
__fastcall TForm1(TComponent* Owner);
TDateTime ParseTwilioDateTime(const UnicodeString &dateStr);
__fastcall TfrmMain(TComponent* Owner);
TDateTime ParseTwilioDateTime(String dateStr);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
extern PACKAGE TfrmMain *frmMain;
//---------------------------------------------------------------------------
#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