Italian community of Lazarus and Free Pascal

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

 

 

In questo articolo vedremo l'utilizzo delle funzioni di I/O su file su console Nintendo DS

Read More