TPanel
05/10/2010
0
Fernando Ramos
Posts
05/10/2010
Wilson Junior
Pois dependendo da maneira que você atribui a imagem no TPanel, você pode fazer o caminho reverso.
Aguardo retorno.
07/10/2010
Fernando Ramos
objNBioBSP := CreateOleObject('NBioBSPCOM.NBioBSP');
objDevice := objNBioBSP.Device;
objDevice.Open(NBioBSP_DEVICE_ID_AUTO_DETECT);
If objDevice.ErrorCode = NBioBSPERROR_NONE Then
begin
objExtraction := objNBioBSP.Extraction;
objExtraction.FingerWnd := ImgDigital.Handle; //AQUI ATRIBUO A DIGITAL AO TPANEL
objExtraction.WindowStyle := NBioAPI_WINDOW_STYLE_INVISIBLE;
objExtraction.capture();
If objExtraction.ErrorCode = NBioBSPERROR_NONE Then
begin
TxtDigitalCodigo.Text := objExtraction.TextEncodeFIR;
BtnConfirmar.Enabled := true;
TxtMao.Enabled := true;
TxtDedos.Enabled := true;
TxtSituacoes.Enabled := true;
TxtMao.SetFocus;
end;
objDevice.Close(NBioBSP_DEVICE_ID_AUTO_DETECT);
end
else
begin
Application.MessageBox('Leitor digital não encontrado','Nenhum dispositivo conectado',16);
objNBioBSP := 0;
objDevice.Close(NBioBSP_DEVICE_ID_AUTO_DETECT);
end;
07/10/2010
Wilson Junior
Espero ter colaborado.
07/10/2010
Wilson Junior
Espero ter colaborado.
07/10/2010
Fernando Ramos
Pelo que entendi ali é processo inverso. Ele precisa colocar uma imagem no TPANEL em execução. Eu já tenho a imagem (digital) em execução no TPANEL e quero salvar em um arquivo de imagem no computador!
abraços!
16/10/2010
Fernando Ramos
Se alguém puder indicar algum material...site....dica.... agradeço!
abraços!
18/10/2010
Leonardo Xavier
18/10/2010
Fernando Ramos
Agora....não dando erro... o que acontecerá? Só por ser o mesmo nome... a imagem da digital que aparece no TPanel aparecerá tb no TImage?
abraços!
18/10/2010
Leonardo Xavier
18/10/2010
Fernando Ramos
Sem código algum?
18/10/2010
Leonardo Xavier
objNBioBSP := CreateOleObject('NBioBSPCOM.NBioBSP');
objDevice := objNBioBSP.Device;
objDevice.Open(NBioBSP_DEVICE_ID_AUTO_DETECT);
If objDevice.ErrorCode = NBioBSPERROR_NONE Then
begin
objExtraction := objNBioBSP.Extraction;
objExtraction.FingerWnd :=Nome de seu componente de imagem.Handle; //AQUI ATRIBUO A DIGITAL AO TPANEL
objExtraction.WindowStyle := NBioAPI_WINDOW_STYLE_INVISIBLE;
objExtraction.capture();
If objExtraction.ErrorCode = NBioBSPERROR_NONE Then
begin
TxtDigitalCodigo.Text := objExtraction.TextEncodeFIR;
BtnConfirmar.Enabled := true;
TxtMao.Enabled := true;
TxtDedos.Enabled := true;
TxtSituacoes.Enabled := true;
TxtMao.SetFocus;
end;
objDevice.Close(NBioBSP_DEVICE_ID_AUTO_DETECT);
end
else
begin
Application.MessageBox('Leitor digital não encontrado','Nenhum dispositivo conectado',16);
objNBioBSP := 0;
objDevice.Close(NBioBSP_DEVICE_ID_AUTO_DETECT);
end;
18/10/2010
Fernando Ramos
Haa sim... mas... o TIMAGE não tem a opção .handle!
abraços!
Clique aqui para fazer login e interagir na Comunidade :)
