[Resolvido]Exportar imagem inserida em Controle Active X Microsoft Forms

Tem como pessoal?

Grato

Neste código carrego o controle imagem com a imagem contida na variável

Image.Picture = handle

Tem como exportar como Bmp ou Jpg essa variavel?
ou extrair do Controle imagem e salvar?

O mais perto disso seria exportar para pdf. Por vias normais, não é possível. Deve ter algum componente externo que faça isso.

Eu tenho um comando que salva o Objeto capturado que está carregado no Controle Activex do Leitor Biométrioo, mas na hora de salvar a imagem está saindo distorcida..., o interessante é que em um outro modelo que utiliza parte dos codigos em um módulo, isto não acontece.. mas se faço a leitura com os códigos no módulo do form, da a distorção...

O que ocorre que que no exemplo que tem os códigos em um módulo não funciona corretamente a opção de exibir a imagem em um objeto picture...


Private Sub menuImgSave_Click()
' we need an image
If raw.height < 1 Or raw.widht < 1 Then
MsgBox "There is no image to save."
Exit Sub
End If

' open "save" dialog
CommonDialog.Filter = "BMP files (*.bmp)|*.bmp|All files (*.*)|*.*"
CommonDialog.FilterIndex = 1
CommonDialog.FileName = ""
CommonDialog.ShowSave

' Save image.
If Not CommonDialog.CancelError And CommonDialog.FileName <> "" Then
If Form_frmFinger.GrFingerXCtrl1.CapSaveRawImageToFile(raw.img, raw.widht, raw.height, CommonDialog.FileName, GRCAP_IMAGE_FORMAT_BMP) <> GR_OK Then
EscreveLog ("Fail to save the file.")
End If
End If
End Sub

Talvez ajude... http://www.lebans.com/loadjpeggif.htm

Está aí o componente que eu falei. Esse exemplo do link postado pelo amigo José salva a imagem do controle em uma imagem no disco do jeito que precisas (acho).

Irei testar este... mas encontrei algo interessante as ao salvar diz Erro 7. memória insuficiente..


Private Declare Function OpenClipboard& _
Lib "user32" (ByVal hwnd As Long)
Private Declare Function EmptyClipboard _
Lib "user32" () As Long
Private Declare Function SetClipboardData& _
Lib "user32" (ByVal wFormat&, ByVal hMem&)
Private Declare Function CloseClipboard& _
Lib "user32" ()
Private Declare Function DestroyIcon& _
Lib "user32" (ByVal hIcon&)

Private Sub menuImgSave_Click()
Dim lÁreaTransferência As Long

OpenClipboard 0
EmptyClipboard
lÁreaTransferência = SetClipboardData(2, Forms!FrmFinger.Image.Picture.handle)
CloseClipboard
If lÁreaTransferência Then
SavePicture Image.Picture, txtCaminho
MsgBox "Imagem salva em " & txtCaminho & " com sucesso!" _
, vbInformation _
, "Informação"
End If

O exemplo do lebans é muito bom, no entanto não estou utilizando um objeto imagem e sim um Controle Activex Imagem Microsoft Forms 2.0

O que fazer?

Teste no código do lebans e deu tipo incompatíveis

Esta imagem é armazenada em um campo OLE
Se tento carrega em um contole imagem dá este erro:

If Not (handle Is Nothing) Then
Image.Picture = handle 'Aqui carrega o activex Microssoft Form
Imagem.Picture = handle 'Aqui tento carregar um controle imagem e dá o erro no print abaixo

Faça um teste assim:

If Not (handle Is Nothing) Then
Image.Picture = handle 'Aqui carrega o activex Microssoft Form
Imagem.Picture = Image.Picture 'Aqui tenta copiar a imagem de um controle para o outro

O mesmo erro do print...

COmo eu disse, o sistema ja tem um codigo de salvar, so que salva distorcido...
No exemplo que eu estou utilizando apenas capturaca e salva a digital.. não a exibia no controle imagem..

Mesclei dois projetos.. e obtive um resultado execelente.. mas esta dando problema no botão salvar..

Postei uma duvida no fac do fabricante.. ainda aguardo resposta.. mas se tivesse uma maneira de exportar o que está dentro do Image.picture active x será melhor ainda


Saudações

Amigos.. depois de muito quebrar a cabeça e realizar vários testes descobri o problema, que veio junto com o exemplo do fabricante do SDK

Neste código as especificacões da imagem estavam invertidas

' Save image.
If Not CommonDialog.CancelError And CommonDialog.FileName <> "" Then
If Form_frmFinger.GrFingerXCtrl1.CapSaveRawImageToFile(raw.img, raw.height, raw.widht, CommonDialog.FileName,

' Save image.
If Not CommonDialog.CancelError And CommonDialog.FileName <> "" Then
If Form_frmFinger.GrFingerXCtrl1.CapSaveRawImageToFile(raw.img, raw.widht,raw.height, CommonDialog.FileName,




Apenas paciência e uma boa observação da rotina executada pelo código...

Como ja consegui salvar pelo proprio Controle Active x contido no SDK.. é desnecessário o objetivo deste tópico..
Mas de qualquer maneira esta é uma boa dúvida sobre este controle Active x do Access.

Grato a todos pela ajuda...

Ótimo. Agora só falta o exemplo no Repositório quando estiver pronto, com um link aqui enviando para lá

Postei um exemplo WEB cam 2.0 que faz isso.

Ma a imagem é em um Active x Microsoft Forms Image?