Italian community of Lazarus and Free Pascal

rel. 9
uses IdMessage
TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);

rel.10
uses IdAttachmentFile
 TIdAttachmentFile.Create(IdMessage.MessageParts, EdAllegato.Text);

[b]IdAttachmentFile[/b] specifico della versione 10 di Indy, hanno modificato
le classi di gestione allegati presenti fino alla rel. 9 nella unit IdMessage

//si possono visualizzare le operazioni durante la connessione 
//al server di posta
//
procedure Tfrm_InvioMail.IdSMTPStatus(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: string);
begin
  MemoStato.Lines.Insert(0,'Status: ' + AStatusText);
end;        

procedure Tfrm_InvioMail.act_InvioMailExecute(Sender: TObject);
begin
  MemoStato.Clear;

  IdSMTP.Host := EdHost.Text;  //indirizzo posta uscita del server
  IdSMTP.Port := 25;           //porta utilizzata dal servizio email

  //configurazione messaggio mail
  IdMessage.From.Address := EdMittente.Text;
  IdMessage.Recipients.EMailAddresses := EdDestinatario.Text + ',' + EdConoscenza.Text;

  IdMessage.Subject := EdOggetto.Text;
  IdMessage.Body.Text := EdCorpo.Text;

  //per selezioneare l'allegato si puo' utilizzare il compponente standard OpenDialog
  // 
  if FileExists(EdAllegato.Text) then
    TIdAttachmentFile.Create(IdMessage.MessageParts, EdAllegato.Text);

  //invio mail
  try
    try
      IdSMTP.Connect;           //connessione
      IdSMTP.Send(IdMessage);
    except on E:Exception do
      //
      //segnalazione eventuale problema di connessione
      MemoStato.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    //segnalazione invio effettuato
     MemoStato.Lines.Insert(0, 'ERROR: ' + E.Message);

    if IdSMTP.Connected then IdSMTP.Disconnect;  //disconnessione dal server di posta
  end;
end;

{
     Libreria scritta da Sammarco Francesco
     francesco.sammarco@gmail.com
}

unit MyExcel;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, fpspreadsheet, fpsallformats, fpstypes, laz_fpspreadsheet, sqldb, db;

const OUTPUT_FORMAT = sfExcel5;

function ExportToExcel(MiaQuery: TDataSource; MyDir: string; NomeFile: string; NomeFoglio: string; var Errore: string): boolean;

implementation

     function ExportToExcel(MiaQuery: TDataSource; MyDir: string; NomeFile: string; NomeFoglio: string; var Errore: string): boolean;
     var
     	ret: BOOLEAN;
        rst: TDataSet;
        MyWorkbook: TsWorkbook;
        MyWorksheet: TsWorksheet;
        Riga, i, Qta: integer;
        posizione: integer;
     begin
             if MiaQuery.DataSet.RecordCount>0 then
             begin
               posizione:=MiaQuery.DataSet.RecNo;
               MiaQuery.DataSet.DisableControls;
               Errore:='';
       	     ret:=TRUE;
               try
                 try
                    rst:=MiaQuery.DataSet;
                    rst.First;
                    if not rst.EOF then
                    begin
                          Riga:=0;
             		// Create the spreadsheet
             		MyWorkbook := TsWorkbook.Create;
             		MyWorksheet := MyWorkbook.AddWorksheet(NomeFoglio);
             		Qta:=rst.Fields.Count;
                          //stampo la testata
                          for i:=0 to Qta-1 do
                          begin
                               if (rst.FieldDefs.Items[i].Name='') then
                                  MyWorksheet.WriteUTF8Text(Riga, i, 'Campo' + IntToStr(i))
                               else
                                   MyWorksheet.WriteUTF8Text(Riga, i, rst.FieldDefs.Items[i].Name);
                               MyWorksheet.WriteFontStyle(Riga, i, [fssBold]); //metto la cella in grassetto
                          end;
                          Inc(Riga);
             		//stampo i dati sul foglio excel
              rst.First;
              while not rst.EOF do
              begin
                               for i:=0 to Qta-1 do
                               begin
                                    if i=6 then
                                       Errore:=rst.Fields[i].AsString;

                                    if (rst.Fields[i].DataType=ftFloat) then
                                         MyWorksheet.WriteNumber(Riga, i, rst.Fields[i].AsFloat)
                                    else if (rst.Fields[i].DataType=ftCurrency) then
                                              MyWorksheet.WriteNumber(Riga, i, rst.Fields[i].AsCurrency)
                                    else if (rst.Fields[i].DataType=ftLargeint) then
                                              MyWorksheet.WriteNumber(Riga, i, rst.Fields[i].AsLargeInt)
                                    else if (rst.Fields[i].DataType=ftSmallint) then
                                              MyWorksheet.WriteNumber(Riga, i, rst.Fields[i].AsInteger)
                                    else if (rst.Fields[i].DataType=ftInteger) then
                                         MyWorksheet.WriteNumber(Riga, i, rst.Fields[i].AsInteger)
                                    else if (rst.Fields[i].DataType=ftString) then
                                         MyWorksheet.WriteUTF8Text(Riga, i, rst.Fields[i].AsString)
                                    else
                                        MyWorksheet.WriteUTF8Text(Riga, i, rst.Fields[i].AsString);
                               end;
                               Inc(Riga);
                   rst.Next;
              end;

              // Save the spreadsheet to a file
              MyWorkbook.WriteToFile(MyDir + System.DirectorySeparator + NomeFile + STR_EXCEL_EXTENSION, OUTPUT_FORMAT);
              MyWorkbook.Free;
             end
             else
             begin
             	ret:=FALSE;
             end;
               	finally
          	end;
       		except
                          on E: Exception do
                          begin
                               Errore:=E.Message;
                               ret:=FALSE;
                          end;
             	end;
                  MiaQuery.DataSet.RecNo:=posizione;
                  MiaQuery.DataSet.EnableControls;

             end else begin
                  Errore:='Data empty';
                  ret:=false;
             end;

             result:=ret;
     	end;

end.

     if ExportToExcel(DS_MiaQuery, "c:\", "FileOut.xls" , "Foglio1", Errore)=TRUE then
           ShowMessage("Esportato")
     else
           ShowMessage("Errore: " + Errore);