DIGITALIZACAO DE IMAGEM
Não estou conseguindo desenvolver uma forma de obter uma Certidão de Nascimento digitalizada .tif ou .jpg no Visual Basic.
Exemplo: eu tenho uma certidão de nascimento com o nome de Joãozinho. Preciso desenvolver um programinha q quando eu consultar o nome joãozinho na base d dados eu consigo visualizar essa imagem .tif ou jpg
Pintou uma outra dúvida, como eu faria isso? pois eu soube q era preciso d uma OCR para transformar a imagem, mas eu até cheguei a baixar um software demo indicado pra isso no www.pegasustools.com mas mesmo assim estou com dúvidas pq eu não sei como vou fazer essa integração para quando eu digitalizar a imagem ele vai pega a imagem e gera um nº de série no momento da abertura da firma aqui no meu cartorio. Esse nº de série é q vai ser o nome do arquivo. Mas fiquei sabendo tb q se eu gravar essa imagem como .tif eu vou ter um arquivo com varias imagem dentro tipo: certidão de nascimento, certidão de casamento, certidão da firma entre outros.
Como eu faria isso?
Caso alguém consiga me ajudar favor entrar responder para juliobribeiro@gmail.com,
Agradeço a ajuda de todos e obrigado,
Julio Cezar
Citação:
Option Explicit
Dim m_strPicData As String
Dim m_lngPicLen As Long
Dim m_db As Database
'Pegar uma imagem para um picturebox...
'Depois grava os bytes em memória...
Private Sub cmdGet_Click()
With CDlg
.CancelError = True
.Filter = "*.bmp|*.bmp"
.InitDir = App.Path
.ShowOpen
Picture1.Picture = LoadPicture(.FileName)
Open .FileName For Binary Access Read As #1
m_strPicData = Space$(LOF(1))
Get #1, , m_strPicData
Close #1
End With
End Sub
'Gravar no banco de dados
Private Sub cmdSave_Click()
Dim rs As Recordset
Set m_db = OpenDatabase(App.Path & "\fotos.mdb")
Set rs = m_db.OpenRecordset("Photos")
rs.AddNew
rs.Fields("Photo").AppendChunk m_strPicData
rs.Update
rs.Close
m_db.Close
End Sub
'Limpa a imagem da picturebox
Private Sub cmdClear_Click()
m_strPicData = ""
Picture1.Picture = LoadPicture(m_strPicData)
End Sub
'Pega a imagem do banco de dados
Private Sub cmdRetr_Click()
Dim rs As Recordset
Dim TempFile As String
TempFile = App.Path & " mp.bmp"
Set m_db = OpenDatabase(App.Path & "\fotos.mdb")
Set rs = m_db.OpenRecordset("Photos")
m_lngPicLen = rs.Fields("Photo").FieldSize
If m_lngPicLen > 0 Then
m_strPicData = rs.Fields("Photo").GetChunk(0, m_lngPicLen)
Open TempFile For Binary As #1
Put #1, , m_strPicData
Close #1
Picture1.Picture = LoadPicture(TempFile)
Kill TempFile
Else
Picture1.Picture = LoadPicture("")
End If
rs.Close
m_db.Close
End Sub