Fórum Capturar Imagem em JPEG para gravar em Mysql #348882
12/11/2007
0
Ola,
Estou tentando gravar uma imagem de uma webcam num bd em mysql.
Este é o codigo para captura:
Código:
procedure TFMCapturaFoto.FormShow(Sender: TObject);
var
P : ^TTabImage;
begin
try
Camera1.Actif := True;
New(P);
FMCapturaFoto.Caption := FMCapturaFoto.Caption + Camera1.FichierImage;
except
MessageDlg(´Ocorreu um erro ao tentar ativar a Webcam.´ + #13 +
´Certifique-se de que a câmera esteja conctacda e corretamente configurada.´, mtError, [mbOk], 0);
end;
end;
// capturando a imagem
Camera1.FichierImage:=´c:\fotos\´ + DataModule1.ZTClientescli_cod.AsString + ´.jpg´;
Camera1.CaptureImageDisque;
Utilizo o Componente TCamera.
Qlqr ajuda será bem vinda.
Vlw
Att
DAlton
Estou tentando gravar uma imagem de uma webcam num bd em mysql.
Este é o codigo para captura:
Código:
procedure TFMCapturaFoto.FormShow(Sender: TObject);
var
P : ^TTabImage;
begin
try
Camera1.Actif := True;
New(P);
FMCapturaFoto.Caption := FMCapturaFoto.Caption + Camera1.FichierImage;
except
MessageDlg(´Ocorreu um erro ao tentar ativar a Webcam.´ + #13 +
´Certifique-se de que a câmera esteja conctacda e corretamente configurada.´, mtError, [mbOk], 0);
end;
end;
// capturando a imagem
Camera1.FichierImage:=´c:\fotos\´ + DataModule1.ZTClientescli_cod.AsString + ´.jpg´;
Camera1.CaptureImageDisque;
Utilizo o Componente TCamera.
Qlqr ajuda será bem vinda.
Vlw
Att
DAlton
Dbergkamps10
Curtir tópico
+ 0
Responder
Posts
13/11/2007
Gigatel
no meu fiz assim (só uma idéia ) usei 2 images uma para visualizar em tempo real a imagem da can e outro para a captura realizada aí sim depois e jogo ela no banco de dados..
No botão de captura coloquei este código:
e para enserir no banco de dados fiz assim:
eu uso um form só para esta função e captura por isso vai notar que tem 2 camadas neste projeto..flw até mais..
No botão de captura coloquei este código:
var SingleImageFileName : string; path:string; begin SingleImageFileName := ´ImagemCapturada.bmp´; CapSetSingleImageFileName(SingleImageFileName); CapGrabSingleFrame; CapSetVideoLive; path:=´C:\Arquivo_Temporario´; mudafoto(ExtractFilePath(ParamStr(0))+´ImagemCapturada.bmp´,path+´.jpg´); image3.Picture.LoadFromFile(path+´.jpg´); end;
e para enserir no banco de dados fiz assim:
_FORM_CLIENTES.DS_CLIENTES.DataSet.Edit; _FORM_CLIENTES.GravaFoto( ´GS_CLI_FIGURA´, ´C:\Arquivo_Temporario.jpg´ ); _FORM_CLIENTES.InserirFoto(sender); close; end;
eu uso um form só para esta função e captura por isso vai notar que tem 2 camadas neste projeto..flw até mais..
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)