Daily Archives: 07.04.2017

Delphi. FastReport. Отправка отчета на почту в HTML формате

Posted on 07.04.2017 by Stanislav_Panteleev

Заказчик захотел получать красивые отчеты на почту. Решил использовать FastReport и придерживаться следующего алгоритма Генерировать отчет в HTML файл Загрузить в строку Отправить на почту Код (Очень черновой вариант, но чтобы было)

procedure TForm2.Button1Click(Sender: TObject);

var Emailer:TUniShopMilkSendEmail;
    ss:TStringStream;
begin


// save to html file

frxReport1.PrintOptions.ShowDialog := False;
frxReport1.ShowProgress := false;

    frxReport1.EngineOptions.SilentMode := True;
    frxReport1.EngineOptions.EnableThreadSafe := True;
    frxReport1.EngineOptions.DestroyForms := False;
    frxReport1.EngineOptions.UseGlobalDataSetList := False;
    frxHTMLExport1.FileName:='123.html';

    frxReport1.PreviewOptions.AllowEdit := False;
    frxHTMLExport1.ShowDialog:=false;
    frxReport1.PrepareReport();
    frxReport1. Export(frxHTMLExport1);


// load from file
Memo1.Lines.LoadFromFile('123.html',TEncoding.UTF8);



// send to mail
Emailer:=TUniShopMilkSendEmail.Create(Self);
Emailer.Execute('someSubject',Memo1.Lines.Text,'panteleevstas@gmail.com');


end;

procedure TForm2.Button1Click(Sender: TObject);

var Emailer:TUniShopMilkSendEmail;

ss:TStringStream;

begin

// save to html file

frxReport1.PrintOptions.ShowDialog := False;

frxReport1.ShowProgress := false;

frxReport1.EngineOptions.SilentMode := True;

frxReport1.EngineOptions.EnableThreadSafe := True;

frxReport1.EngineOptions.DestroyForms := False;

frxReport1.EngineOptions.UseGlobalDataSetList := False;

frxHTMLExport1.FileName:='123.html';

frxReport1.PreviewOptions.AllowEdit := False;

frxHTMLExport1.ShowDialog:=false;

frxReport1.PrepareReport();

frxReport1. Export(frxHTMLExport1);

// load from file

Memo1.Lines.LoadFromFile('123.html',TEncoding.UTF8);

// send to mail

Emailer:=TUniShopMilkSendEmail.Create(Self);

Emailer.Execute('someSubject',Memo1.Lines.Text,'panteleevstas@gmail.com');

end;

Также кусок кода из примера UniGUI … Continue reading →

Posted in Delphi, FastReport | Comments Off

Daily Archives: 07.04.2017

Delphi. FastReport. Отправка отчета на почту в HTML формате

MY PROJECTS

Recent Posts

Categories