CODIGO NÃO ESTA GRAVANDO IMAGEM CAPTURADA VIA WEBCAM NO FORM
05/02/2013
0
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;
Flavio Silva
Posts
05/02/2013
Jose Medeiros
marque essa linha com um breakpoint:
ImgCliente.Picture.LoadFromFile(diretorio +'\'+ nome_arquivo);
confere se o path da imagem esta vindo corretamente.
05/02/2013
Flavio Silva
marque essa linha com um breakpoint:
ImgCliente.Picture.LoadFromFile(diretorio +'\'+ nome_arquivo);
confere se o path da imagem esta vindo corretamente.
Boa noite,
o Path está correto, mas como posso marcar uma linha com um breakpoint?
06/02/2013
Daniel Santos
06/02/2013
Bruno Leandro
Clique aqui para fazer login e interagir na Comunidade :)