Gravar imagem gerada da Web cam

03/02/2013

1

Boa tarde,

Estou usando um TDelphiTwain em minha aplicação para adquirir uma imagem a partir da webcam. A mesma está abrindo normalmente a webcam, está gerando e salvando a imagem em uma pasta no pc, esta gravando normalmente o caminho da foto no banco de dados Firebird, porem, não esta fixando (gravando) a imagem no form (cadastro do Funcionario/cliente), todas as vezes que fecho o form a foto somente, porem, exibe normalmente no campo abaixo o caminho da foto, segue abaixo o codigo colocado no evento ONTWAINACQUIRE do componentes:

procedure TFormCadFuncionarios.DTImgCapImgTwainAcquire(Sender: TObject;
const Index: Integer; Image: TBitmap; var Cancel: Boolean);
var img : TJPEGImage;
diretorio, nome_arquivo : PChar;
begin
img := TJPEGImage.Create;
ImgCliente.IncrementalDisplay := True;
img.Assign(Image);
img.ProgressiveDisplay := True;
img.CompressionQuality := 75;
img.Compress;
//*************************
diretorio :=Pchar('D:\Projetos\Apache\images');
nome_arquivo :=Pchar(DMApache.QFuncionarioAPELIDO.AsString +
'_' + DMApache.QFuncionarioCODIGO.AsString + '.jpg');
//Verifica se o diretorio existe, se não, será criado.
if not DirectoryExists(diretorio) then
CreateDir(diretorio);
img.SaveToFile(diretorio + '\' + nome_arquivo);
//Gravar no Banco de dados
DMApache.QFuncionarioFOTO.AsString := diretorio +'\'+ nome_arquivo;
//DMApache.QFuncionario.Post;
//Exibe a imagem no campo do Formulario
ImgCliente.Picture.LoadFromFile(diretorio +'\'+ nome_arquivo);
//*************************
img.Free;
Cancel := True;
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira