Written by Narciso Dicembre 11, 2012, 07:09:00 pm19541 ViewsRating: 0 (0 Rates)Print
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)}
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
Narciso registered at Italian community of Lazarus and Free Pascal on Ottobre 02, 2012, 05:36:12 pm and has posted 116 posts in the boards since then. Last visit was Ottobre 22, 2022, 06:19:12 pm.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.