C++ Builder CE プログラミング

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <DateUtils.hpp>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
TLabel* url[3];
TLabel* expi[3];
TLabel* days[3];
String urls[3] = { "https://mars.rist.u-tokai.ac.jp",
					"https://ghost.mydns.jp",
					"https://ruined.mydns.jp"};
int servercount = 2;
int index=0;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{

	for( int i = 0 ; i < servercount ; i++ ){
		url[i] = new TLabel(Form1);
		url[i]->Parent = Form1;
		url[i]->Left = 20;
		url[i]->Top = 10 + 60*i;
		url[i]->Width = 100;
		url[i]->Height = 60;
		url[i]->Font->Size = 12;
		url[i]->Caption = urls[i];

		expi[i] = new TLabel(Form1);
		expi[i]->Parent = Form1;
		expi[i]->Left = 280;
		expi[i]->Top = 10 + 60*i;
		expi[i]->Width = 100;
		expi[i]->Height = 60;
		expi[i]->Font->Size = 12;
		expi[i]->Caption = "exp. " + IntToStr(i);

		days[i] = new TLabel(Form1);
		days[i]->Parent = Form1;
		days[i]->Left = 550;
		days[i]->Top = 10 + 60*i;
		days[i]->Width = 100;
		days[i]->Height = 60;
		days[i]->Font->Size = 12;
		days[i]->Caption = "days " + IntToStr(i);

	}
	IdHTTP1->ConnectTimeout = 5000;    // can I do this and effective?
	/*
	You can also try setting TIdHTTP.Request.Pragma := 'no-cache'; before calling TIdHTTP.Get(). –
Remy Lebeau
 Oct 28, 2013 at 22:46
 */

	IdHTTP1->Request->Pragma = "no-cache";

	for( int i = 0 ; i < servercount ; i++ ){
		//String Response;
		index = i;
		TMemoryStream* ms = new TMemoryStream(); //取得したデータを格納する

        expi[index]->Caption = "Working....";
		try {
				IdHTTP1->Get(urls[i], ms);
		}
		catch(const Exception& e)
		{
			//ShowMessage(e.ClassName());
			expi[index]->Caption ="Dead";
            days[index]->Caption ="NA";
            continue;
				//printf("Caught C++ Exception: %s :\n", e.msg());
		}




	}

}
//---------------------------------------------------------------------------


bool __fastcall TForm1::IdSSLIOHandlerSocketOpenSSL1VerifyPeer(TIdX509 *Certificate,
          bool AOk, int ADepth, int AError)
{
	TDateTime now = Now();
	TDateTime exp = Certificate->notAfter;
	expi[index]->Caption = Certificate->notAfter;// exp date
	int idays = DaysBetween(now,exp);

	if( idays < 30 )
		days[index]->Font->Color = clRed;
	else
		days[index]->Font->Color = clBlack;

	days[index]->Caption =IntToStr(idays);
	return true;
}