Procedure TForm1.TomarFoto();
var
mybmp:TBitmap;
myjpg:TJPEGImage;
begin
tsCap321.SaveAsBMP:='C:\pruebax.bmp';
mybmp:=TBitmap.Create;
mybmp.LoadFromFile('C:\pruebax.bmp');
myjpg:=TJPEGImage.Create;
myjpg.Assign(MyBmp);
myjpg.SaveToFile('C:\pruebax.jpeg');
myjpg.Free;
mybmp.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
var rs:TAdodataset;
begin
ShortDateFormat:='yyyy/mm/dd';
TomarFoto;
rs := TADODataSet.Create(nil);
rs.Connection := ADOConnection1;
rs.CursorType := ctKeyset;
rs.LockType := ltOptimistic;
rs.CommandText := 'SELECT * FROM Captura';
rs.Open();
rs.Append();
rs.FieldByName('hora').asstring:=formatdatetime('H:mm',now);
rs.FieldByName('fecha').AsString:=formatdatetime('yyyy/mm/dd',now);
(rs.FieldByName('foto') as TBlobField).LoadFromFile('C:\pruebax.jpeg');
rs.post();
rs.Close();
rs.Free();
end;