Italian community of Lazarus and Free Pascal

L'utilita' CF calcola il codice fiscale per italiani e stranieri,
offre anche la possibilita' di stampare il facsimile della scheda sanitaria italiana.
E' realizzata in Lazarus 1.0.10/FPC 2.6.2,
il database contiene 8353 voci tra comuni italiani e nazioni estere, usa sqlite3 criptato aes128 (wxsqlite3-3.0.3),
puo' essere modificato e aggiornato dal programma variando i dati gia' presenti o inserendone di nuovi.
Non bisogna fare installazioni basta scompattare il contenuto del file zip in una cartella e lanciare
CF.exe, il programma puo' essere eseguito anche su pen drive o HD esterni.
Per qualsiasi informazioni potete contattarmi all'indirizzo email: webmaster@lucodeimarsi.net

Sito ufficiale: http://www.lucodeimarsi.net/cf/

L'utilita' CF, diventata CoFi con la disponibiltà per linux, calcola il codice fiscale per italiani e stranieri, offre anche la possibilita' di stampare il facsimile della scheda sanitaria italiana.
E' realizzata in Lazarus 1.0.12/FPC 2.6.2, il database, non più criptato, contiene 20 stati in più del precedente, ora sono 8373 voci tra comuni italiani e nazioni estere, usa sqlite3, puo' essere
modificato e aggiornato dal programma variando i dati gia' presenti o inserendone di nuovi. Non bisogna fare installazioni basta scompattare
il contenuto del file zip in una cartella e lanciare CoFi. Per le versioni linux teoricamente il funzionamento dovrebbe essere uguale, e cioe'
non richiedere l'installazione, ci si assicuri pero' di avere installato sqlite3 e che si abbiano i permessi di scrittura per la cartella in cui CoFI risiede.
Per qualsiasi informazione, commento o critica potete contattarmi all'indirizzo email webmaster@lucodeimarsi.net, in pm qui sul forum o come meglio credete!

L'ultima creazione di Massimo Nardello.

Si tratta di Bibfilex e serve per gestire archivi bibliografici in BibLatex. Il sito è https://sites.google.com/site/bibfilex/

Per ora è solo in inglese, ma col tempo verrà tradotto anche in italiano.

Può capitare che usando Ubuntu si voglia aggiornare la propria versione di Lazarus, ma allo stesso tempo si necessita dell'ultima versione di free pascal altrimenti il pacchetto .deb non viene installato a causa delle dipendenze non soddisfatte.
Bene, per fare questo i passaggi sono pochi e semplici.
Create un file di nome "getlaz" e dentro copiate quanto segue
#!/bin/sh
gpg --keyserver hkp://pgp.mit.edu:11371 --recv-keys 6A11800F
gpg --export 6A11800F | sudo apt-key add -
echo "deb http://www.hu.freepascal.org/lazarus/ lazarus-stable universe" > lazarus.list
sudo mv -v lazarus.list  /etc/apt/sources.list.d/lazarus.list
sudo apt-get update
sudo apt-get install lazarus
Salvate, chiudete e poi da terminale digitate quanto segue
sudo chmod +x getlaz
Questo renderà il file appena creato eseguibile da voi.
Ora eseguite da terminale con
./getlaz
accettate l'installazione e aspettate che termini.
A questo punto il vostro free pascal dovrebbe essere aggiornato all'ultima versione disponibile, ma nel dubbio avviate il gestore degli aggiornamenti e aggiornate tutto quello che vi si ripresenta. Riavviate il pc.
Ora andate nel sito ufficiale di lazarus nella sezione download e scaricate l'ultima versione di lazarus nel formato ".deb" lanciatelo e vi si dovrebbe aprire l' Ubuntu Software Center (USC) che vi darà la possibilità di aggiornare, se doveste trovare difficoltà ad installare dall'USC allora aprite il terminale e digitate

sudo dpkg -i lazarus_x.x.x-x_iyyy.deb
dove le x indicano il numero di versione e le y l'architettura del sistema. Ora tutto dovrebbe essere aggiornato, buona programmazione (ovviamente con Lazarus).

PS:
Se tutto è andato a buon fine ma avete problemi ad aprire lazarus o a compilare assicuratevi che i permessi della cartella contenente lazarus siano corretti digitando:
sudo chmod -R 777 cartella_lazarus
dove cartella_lazarus può essere
/usr/lib/lazarus/
oppure
/usr/share/lazarus/
dipende dalla versione di lazarus e dal pacchetto d'installazione

Lazarus nel mondo

Forum ufficiale: http://www.lazarus.freepascal.org/

• Brasile: http://www.lazarusbrasil.org/
• Cina: http://www.fpccn.com/
• Francia: http://www.developpez.net/forums/f189/autres-langages/pascal/lazarus/
• Germania: http://lazarusforum.de/
• Olanda: http://www.nldelphi.com/
• Spagna: http://www.delphiaccess.com/forum/lazarus-freepascal/, http://www.clubdelphi.com/foros/forumdisplay.php?f=14, http://hispalazarus.forogratis.es/

E' spesso necessario riuscire ad interfacciarsi con scanner, webcam che usano il protocollo twain ( se puo' definirsi cosi'), e tra i componenti a disposizione di lazarus non ce ne sono di utili, quindi è necessario cercare altrove...

Con l'aiuto del Forum ho trovato questi file qui http://www.kluug.net/delphitwain.php ... che nella loro ultima versione hanno anche un esempio di uso con lazarus.

Quindi prima di tutto bisogna scaricarsi i file di delphitwain... Analizzata la procedura ci si accorge che i file per lazarus vengono caricati runtime senza installare alcun componente nella palette... e peche' mai? Creiamoci un nuovo componente....aggiungiamo al pacchetto il file delphitwain..., compilamo ed installiamo il componente... Adesso sulla palette abbiamo la linguetta NB con il componente installato.

Proviamolo subito.... Creiamo un nuovo progetto, mettiamoci un tbuttn ed un timage.... mettiamoci pure il componente delphitwain.... adesso gestiamo l' evento del button onclick inserendo il seguente codice che serve per verificare che si abbia una periferica compatibile con il twain ed avviare, nel caso positivi, il processo di aquisizione...

[code] var SelectedSource: Integer;//periferica selezionata begin {Si raccomanda di caricare la libreria dinamicamente senza forzare l'utentefinale all'installazione}

if delphiTwain1.LoadLibrary then begin {Carica il source manager} delphiTwain1.SourceManagerLoaded := TRUE; {E permette all'utente il suo uso}

SelectedSource := delphiTwain1.SelectSource;

if SelectedSource -1 then begin {Carica il sorgente , seleziona il tipo di trasferimento e attiva l'interfaccia)}

delphiTwain1.Source[SelectedSource].Loaded := TRUE;

delphiTwain1.Source[SelectedSource].TransferMode := ttmMemory;

delphiTwain1.Source[SelectedSource].Enabled := TRUE;

end;

{if SelectedSource -1}

end

else showmessage('Twain non è installato.');

end; [/code]

 

 

Bene adesso dobbiamo gestire l'evento del delphitwain....OnTwainAcquire....

[code]

procedure TForm1.DelphiTwain1TwainAcquire(Sender: TObject; const Index: Integer; Image: TBitmap; var Cancel: Boolean);

begin

IMAGE1.Picture.ASSIGN(IMAGE);// ASSEGNA IMMAGINE A TIMAGE

CANCEL:=TRUE; // UNA SOLA IMMAGINE (SE FOSSE FALSE.. CONTINUEREBBE LE SCANSIONI) end;

[/code]

 

Tutto fatto... Compiliamo il progetto.. e clicchiamo il button.... e magia.... l'immagine scansionata viene assegnata al timage....( schretchatelo per avere l'immagine totale a Video)

Inserisco il link alla pagina ove ho postato i file d'esempio e dell' lpk

http://www.lazaruspascal.it/index.php?topic=474.msg3299#msg3299