Отправка на E-mail

std::auto_ptr-TStringList-ALL(new TStringList)

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <memory>
#include <stdio.h>
#include <memory>
//--------------------------------
#include <IdBaseComponent.hpp>
#include <IdComponent.hpp>
#include <IdHTTP.hpp>
#include <IdTCPClient.hpp>
#include <IdTCPConnection.hpp>
#include <IdIOHandler.hpp>
#include <IdIOHandlerSocket.hpp>
#include <IdIOHandlerStack.hpp>
#include <IdSSL.hpp>
#include <IdSSLOpenSSL.hpp>
 
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
 int number = 0;
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
  
  Label4->Caption="Åòàïè ðîçâ'ÿçóâàííÿ çàäà÷ çà äîïîìîãîþ ÅÎÌ(ç êîðîòêèìè ïîÿñíåííÿìè)";
  Label5->Caption="Àëôàâ³ò ìîâè ïðîãðàìóâàííÿ Ïàñêàëü";
  Label6->Caption="Ùî òàêå êîìàíäà ïðèñâîºííÿ?";
  Label7->Caption="Êëàñèô³êàö³ÿ ìîâ ïðîãðàìóâàííÿ";
  Label8->Caption="Çàïèñàòè ìîâîþ Ïàñêàëü íàñòóïí³ ÷èñëà:";
  Label9->Caption="Âèïèñàòè ÷èñëà, ùî º ïðàâèëüíèìè çà ïðàâèëàìè ìîâè ïðîãðàìóâàííÿ Ïàñêàëü:";
  Label10->Caption="Íàâåä³òü ïðèêëàäè ö³ëèõ ÷èñåë, ùî íå ìîæíà ïîäàòè ìîâîþ ïðîãðàìóâàííÿ Ïàñêàëü";
  Label11->Caption="Çàïèñàòè ìîâîþ Ïàñêàëü íàñòóïí³ ìàòåìàòè÷í³ âèðàçè:";
  Label12->Caption="Çàïèñàòè ó çàãàëüíîïðèéíÿò³é ôîðì³:";
  Label13->Caption="Îá÷èñëèòè çíà÷àííÿ âèðàç³â:";
  Label14->Caption="Âêàæ³òü íåïðàâèëüíî íàïèñàí³ îïåðàòîðè ïðèñâîºííÿ, ÿêùî x òà y - ä³éñí³ ÷èñëà, à n - ö³ëå:";
}
 
void __fastcall TForm2::BitBtn1Click(TObject *Sender)
{
   std::auto_ptr<TStringList>PRSNL(new TStringList);
   std::auto_ptr<TStringList>ontfv(new TStringList);
   std::auto_ptr<TStringList>sx(new TStringList);
   std::auto_ptr<TStringList>svntn(new TStringList);
   std::auto_ptr<TStringList>elvn(new TStringList);
   std::auto_ptr<TStringList>ALL(new TStringList);
   std::auto_ptr<TStringList>File(new TStringList);
 
   PRSNL->Text =  RichEdit1->Text + " " + RichEdit2->Text + "  " + RichEdit3->Text + "\n\n\n";
 
   ontfv->Text =
   Label4->Caption + "\n" + RichEdit4->Text + "\n\n" +
   Label5->Caption + "\n" + RichEdit5->Text + "\n\n" +
   Label6->Caption + "\n" + RichEdit6->Text + "\n\n" +
   Label7->Caption + "\n" + RichEdit7->Text + "\n\n" +
   Label8->Caption + "\n" + RichEdit8->Text + "\n\n";
 
   sx->Text = Label8->Caption + "\n" + "0 ïðàâèëüíî ç " + "\n\n";
 
   svntn->Text =
   Label10->Caption + "\n" + RichEdit10->Text + "\n\n" +
   Label11->Caption + "\n" + RichEdit11->Text + "\n\n" +
   Label12->Caption + "\n" + RichEdit12->Text + "\n\n" +
   Label13->Caption + "\n" + RichEdit13->Text + "\n\n";
 
   elvn->Text = Label14->Caption + "\n" + "0 ïðàâèëüíî ç " + "\n\n";
 
   ALL->Text = PRSNL->Text + ontfv->Text + sx->Text + svntn->Text + elvn->Text;
   //ALL->SaveToFile("F:\\1.txt");
 
 
 
 
IdSSLIOHandlerSocketOpenSSL1->MaxLineAction = maException;
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Method = sslvTLSv1;
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->Mode = sslmUnassigned;
    IdSSLIOHandlerSocketOpenSSL1->SSLOptions->VerifyDepth = 0;
 
    SMTP->IOHandler = IdSSLIOHandlerSocketOpenSSL1;
    SMTP->Host = "smtp.mail.ru";
    SMTP->Port = 587;
    SMTP->Username = "";
    SMTP->Password = "";
    SMTP->UseTLS = utUseExplicitTLS;
    SMTP->ReadTimeout = 15000;
    SMTP->Connect();
    if(SMTP->Connected() == true)
    {
        ShowMessage("We have connect");
        TIdMessage *IdMessage1 = new TIdMessage();
        IdMessage1->Clear();
        IdMessage1->From->Address = "";
        IdMessage1->Recipients->EMailAddresses = "johnson1980@mail.ru";
        IdMessage1->Subject = L"Ìîå ïåðâîå ïèñüìî â C++ íà email";
        IdMessage1->Body->Text = L"Ïðèâåò ýòî ìîå ñîîáùåíèå!";
        SMTP->Send(IdMessage1);
        delete IdMessage1;
        delete IdSSLIOHandlerSocketOpenSSL1;
        SMTP->Disconnect();
    } else ShowMessage("Dont have connect");
 
 
 
 
 
 
 
 
   Form1->Close();
   Form2->Close();
}
//---------------------------------------------------------------------------