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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdSMTP1Connected(TObject *Sender)
{
	YN=1; //Соединение с сервером установлено
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdSMTP1Disconnected(TObject *Sender)
{
	YN=2; //Соединение с сервером разорвано
}
//---------------------------------------------------------------------------
int TForm1::SendTelegram(void)
{
		FILE *f0;
		struct ffblk ff;
		int i,n,year,mon,day,hour,min;
		AnsiString TextTel1,TextTel2;
		char ch[1024];
		IdSMTP1->Host = "mail.tsu.ru";
		IdSMTP1->Username = "radar@mail.tsu.ru";
		IdSMTP1->Password = "JDR2zgSmw";
//		IdMessage1->From->Address = "Telegramma"; //"radar@mail.tsu.ru";
		IdMessage1->Subject="From Tomsk"; // Тема письма
//		IdMessage1->From->Text="radar@mail.tsu.ru"; //"Telegramma"; //  Кто отправил
		IdMessage1->CharSet = "windows-1251";//Кодировка, для кирилицы
		if(findfirst("telegram.tmp",&ff,0)!=0)
		{
		sprintf(ch,"Телеграмма не отправлена\n нет текста телеграммы");
		Label1->Caption=AnsiString(ch);
		Label1->Font->Color=clRed;
		Timer1->Enabled=true;
		return -1;
		}
		if(findfirst("telegram.ini",&ff,0)!=0)
		{
		sprintf(ch,"Телеграмма не отправлена\n нет файла инициализации");
		Label1->Caption=AnsiString(ch);
		Label1->Font->Color=clRed;
		Timer1->Enabled=true;
		return -2;
		}
		f0=fopen("telegram.tmp","rt");
		fscanf(f0,"%d-%d-%d %d:%d",&day,&mon,&year,&hour,&min);
		fscanf(f0,"%s",&ch);
		TextTel1=AnsiString(ch);
		for(i=0; i<12; i++)
		{
			fscanf(f0,"%s",&ch);
			TextTel1=TextTel1+" "+AnsiString(ch);
		}
		fclose(f0);
		sprintf(ch,"ЗЦЗЦ 025 020001/\nЗИРА40 НВСБ %02d%02d%02d\n",day,hour,min);
		TextTel2=AnsiString(ch);
		sprintf(ch,"=\nНННН");
		TextTel2=TextTel2+TextTel1+AnsiString(ch);
		if(!IdSMTP1->Connected()) IdSMTP1->Connect();
		if(IdSMTP1->Connected())
		{
			f0=fopen("telegram.ini","rt");
			IdMessage1->Body->Text=TextTel1;
			fscanf(f0,"%d",&n);
			for(i=0; i<n; i++)
			{
			   fscanf(f0,"%s",&ch);
			   IdMessage1->Recipients->EMailAddresses = AnsiString(ch);
			   IdSMTP1->Send(IdMessage1);
			}
			IdMessage1->Body->Text=TextTel2;
			fscanf(f0,"%d",&n);
			for(i=0; i<n; i++)
			{
			   fscanf(f0,"%s",&ch);
			   IdMessage1->Recipients->EMailAddresses = AnsiString(ch);
			   IdSMTP1->Send(IdMessage1);
			}
			fclose(f0);
		}
		unlink("telegram.tmp");
		IdSMTP1->Disconnect();
        return 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
	YN=0;
	SendTelegram();
	Timer1->Enabled=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
	Close();
}
//---------------------------------------------------------------------------