lazreport - primi passi

[petrusic]

Dopo l'installazione delle funzioni di report, ho mosso il primo passo verso questo nuovo capitolo installando l'esempio riportato qui
Ho estratto il contenuto del file .zip ed ho aperto il progetto ed i file .pas relativi.
Per vedere la Form dell'esempio coi suoi controlli ho premuto il tasto F12, ma mi sono beccato solamente il seguente messaggio d'errore:

Impossibile trovare la classe componente "TDatasource".
Non è registrato tramite RegisterClass e nessun lfm trovato.
È richiesto dalla unit:
/media/dirdati/dativari/lazarus_progetti/SimpleAlbum/unit1.pas

Io volevo solo capire come costruire il mio primo oggetto di tipo Report.

Non capisco perchè F12 non funziona.

[DragoRosso]

Il progetto è un pò datato: ha 11 anni, potrebbe essere che i componenti usati non siano più compatibili con quelli attuali, o forse (più plausibile) che il file del progetto non sia compatibile.

Se non trova il TDatasource è probabile che non carichi l'unità DB.

Provo a dare una occhiata ...

[DragoRosso]

Progetto aggiornato.

Esegui il build, poi a linea di comando:

project1 dati.txt Config.ini

EDIT: il progetto è a 64 bit, con la dll di SQL (SQLite3.dll) a 64 bit. Se lavori a 32 bit devi sostituire la dll SQLite3.dll con la versione a 32 bit.
Qui trovi le "precompiled binaries" cioè le dll corrispondenti per i vari SO:

 https://www.sqlite.org/download.html

Ciao

[petrusic]

Progetto aggiornato.

Esegui il build, poi a linea di comando:

project1 dati.txt Config.ini

Il comando dovrebbe servire per creare l'archivio dati?

Se è così, non ti preoccupare. Io ho solo bisogno di capire la tecnica costruttiva del report e quindi di:
-  imparare a preparare l'insieme di dati da fornire a TfrReport (io sono abituato a costruire una stringGrid visuale, corrispondente alla pagina PDF finale)
-  imparare quali parametri passare per il formato della pagima Pdf, il Font con le sue caratteristiche di modello,e altezza e stile
-  non so se posso anche predisporre i colori delle varie porzioni di testo col corrispondente sfondo.
-  come potrei disegnare una griglia sulla pagina PDF, impostando anche il colore della linea, insieme all'altezza e la larghezza di ciascuna riga e alla larghezza di ciascuna colonna.

Ho guardato le proprietà dell'oggetto TfrReport, ma non ho trovato o non saputo trovare niente di tutto questo.

Esiste una guida che illustri dettagliatamente come e dove impostare i parametri occorrenti per produrre una pagina Pdf?

[DragoRosso]

Mi dispiace, ma di report di Lazarus ne sò meno che niente.

Confidiamo in un aiuto o un consiglio dai membri del forum.

Ciao

[xinyiman]

Se il tuo oggetto TfrReport si chiama MyReport puoi generare il pdf come segue. Nella form devi trascinare un oggetto TfrTNPDFExport (che chiami frTNPDFExport1) e anche  un oggetto TSaveDialog (che chiami SaveDialog1)

poi con un codice simile dovresti riuscirci

Codice: [Seleziona]

               MyReport.LoadFromFile(qui metti il path del file lrf);
               if MyReport.PrepareReport then
               begin
                    SaveDialog1.Filter:='PDF files (*.pdf)|*.pdf';
                    SaveDialog1.FileName:='Album_' + StringReplace(DateToStr(Now()),'/','', [rfReplaceAll]) + '_' + StringReplace(TimeToStr(Now()) ,':','.', [rfReplaceAll]);
                    if SaveDialog1.Execute then
                    begin
                         if uppercase(ExtractFileExt(SaveDialog1.FileName))='.PDF' then
                         begin
                              //non faccio niente, il nome è già corretto
                              NomePDF:=SaveDialog1.FileName;
                         end
                         else
                         begin
                              //il nome non è corretto, quindi ci aggiungo il .pdf alla fine
                              NomePDF:=SaveDialog1.FileName + '.pdf';
                         end;
                         Screen.Cursor := crHourglass;
                         MyReport.ExportTo(TFrTNPDFExportFilter, NomePDF);
                         Screen.Cursor := crDefault;
                         ShowMessage('Creazione del file PDF terminata.');
                    end;
               end;

[petrusic]

Se il tuo oggetto TfrReport si chiama MyReport puoi generare il pdf come segue. Nella form devi trascinare un oggetto TfrTNPDFExport (che chiami frTNPDFExport1) e anche  un oggetto TSaveDialog (che chiami SaveDialog1)

Fin qui avevo capito, comunque grazie.

poi con un codice simile dovresti riuscirci

Codice: [Seleziona]

               MyReport.LoadFromFile(qui metti il path del file lrf);
               if MyReport.PrepareReport then
               begin
. . .

Ci studio un pò sopra e ti faccio sapere.
Grazie ancora

[petrusic]

Una delle funzioni del mio programma corrente è quella di compilare una StringGrid di cui si può estrarre una successiva StringGrid, ridotta alle sole colonne da riportare in stampa, e solo dopo averla mostrata  a video.
Quindi:
1) mostro a video la StringGrid riportata nell'allegato;
2) Dietro pressione di pulsante "Stampa" , mostro una StringGrid ESTRATTA dalla precedente  (con un numero minore di colonne);
3) Dietro pressione di nuovo pulsante "Avvia Stampa", dovrebbe formare un report con tutte le celle rappresentate nella 2^a StringGrid.

Spero di essere stato chiaro, nell'illustrazione della sequenza degli oggetti da trattare.

Dato che lo scopo finale è quello di stampare una griglia non so se l'oggetto TFReport mi permette  di stampare una griglia, pensavo di compilare la StringGrid ESTRATTA dentro un TFrPrintGrid, però mi sono accorto che quest'ultimo è una DBGrid, quindi penso che rilevi automaticamente i dati da un DB.
Se è come ho capito, non fa al caso mio.

Allora non mi resta che creare una StringGrid ESTRATTA di tipo TStringGrid. Ma poi come trasferisco la StringGrid ESTRATTA con tutto il suo contenuto nell'oggetto TFReport?

[tito_livio]

Ciao, Lazreport stampa soprattutto quello che c'è dentro una tabella quindi a grandi linee il procedimento è questo:
Per stampare  una TStringGrid puoi riversare il suo contenuto in una tabella d'appoggio, io uso un tMemDataset, suppomiamo: Mgriglia.
All'interno di Mgriglia ovviamente dovranno esserci tutti i campi relativi alle colonne della griglia che ti interessa stampare.
Poi nel report crei una banda collegata a Mgriglia con all'interno tanti memo, ognuno che fa riferimento ad un campo di Mgriglia. Tramite le proprietà di questi memo poi potrai definire i bordi dei memo stessi per creare proprio la struttura di una griglia.
In questo momento non posso ma più tardi metto un esempio.
P.S. Non l'ho mai usato ma credo che con TFrPrintGrid ci siano problemi nel caso la griglia occupi più di una pagina.

[petrusic]

Ciao, Lazreport stampa soprattutto quello che c'è dentro una tabella quindi a grandi linee il procedimento è questo:
Per stampare  una TStringGrid puoi riversare il suo contenuto in una tabella d'appoggio, io uso un tMemDataset, suppomiamo: Mgriglia.
All'interno di Mgriglia ovviamente dovranno esserci tutti i campi relativi alle colonne della griglia che ti interessa stampare.
Poi nel report crei una banda collegata a Mgriglia con all'interno tanti memo, ognuno che fa riferimento ad un campo di Mgriglia. Tramite le proprietà di questi memo poi potrai definire i bordi dei memo stessi per creare proprio la struttura di una griglia.

Concettualmente ho capito ed il risultato finale è quello che cerco.

In questo momento non posso ma più tardi metto un esempio.

Mi faresti vertamente un grande regalo. Grazie

Non l'ho mai usato ma credo che con TFrPrintGrid ci siano problemi nel caso la griglia occupi più di una pagina.

Questa non me l'aspettavo.

[tito_livio]

Ciao,
in allegato il progetto di esempio per stampare un StringGrid con Lazreport.

[petrusic]

@ tito_livio
Grazie per l'aiuto.
L'ho provato: bene! bene!

Ora dovrò studiarci sopra per capire meglio i vari meccanismi.

[petrusic]

Nell'esempio ricevuto leggo:

Codice: [Seleziona]

Mgriglia.Append;     --> prepara l'oggetto TMemDataSet a ricevere l'accodamento di dati?
Mgriglia.Edit;           --> serve a preparare la formattazione dei valori float o  per rendere visibile il TMemDataSet?
Mgriglia.FieldByName('dare').Value := strtofloat(stringgrid1.Cells[2, i]);    --> perché é necessaria la conversione in float ?

Poi ho visto che nelle proprietà del TMemDataSet mancano i parametrisul dimensionamento delle celle e non solo.
Forse l'impostazione di detti parametri è presa in automatico attraverso le istruzioni di caricamento dei dati dalla StringGrid alla MemDataSet?

Scusa se ti chiedo qualche chiarimento, ma mi serve solo per capire. Infatti, non ho trovato documentazione in merito.

[petrusic]

Ho trovato la guida che cercavo qui.

[tito_livio]

Ciao,
le operazioni su Tmemdataset sono le stesse che si possono fare su qualsiasi tabella contenente dati, come se tu lavorassi su di una tabella di un database Sqlite o Firebird per esempio.
Quindi:
Mgriglia.append crea un nuovo record;
Mgriglia.edit pone Mgriglia in modalità scrittura;
Mgriglia.FieldByName('dare').Value := strtofloat(stringgrid1.Cells[2, i]); poteva anche scriversi:
Mgriglia.FieldByName('dare').Text := stringgrid1.Cells[2, i];  non è necessaria la conversione.
Per la larghezza e altre caratteristiche della cella che vuoi stampare devi aprire il file relativo alla stampa, in questo caso stampa1.lrf, e gestire le varie proprietà dei memo.