Procedimiento TFRM1.Button2Click (remitente: tobject);
Varilla
JPEG: TJPegimage;
BMP: TBITMAP;
Mystm: tmemorystream;
strfilename, strcard: string;
Comenzar
heredado;
strFileName: = ExtractFilePath (Application.ExeName);
con dbedit12.datasource.dataset do
Comenzar
si no videocap1.saveasdib entonces
Comenzar
ShowMessage ('Fallado de fotos fallido');
Abortar;
fin;//
bmp: = tbitmap.create;
intentar
bmp.loadFromFile (strFileName+ 'capture.bmp');
Mystm: = tMemoryStream.Create;
jpeg: = tjpegimage.create;
intentar
jpeg.assign (BMP);
jpeg.compress;
jpeg.savetofile (strfileName+'capture.jpg');
strfilename: = strfileName+'capture.jpg';
jpeg.loadFromFile (strFileName);
jpeg.savetostream (mystm);
Mystm. Posicion: = 0;
Openqry (QUERY1, 'Seleccione recuento (1) como CNT desde tb_photo donde card_no =' '+strcard+' '' '); // Primero averigüe si hay este número de tarjeta
Openqry (Pubqry, 'Seleccionar * de tb_photo donde card_no =' '+strcard+' '' ''); // Abrir la tabla de datos de la tarjeta
{Openqry es una función que personaliza la apertura de tablas de datos
Openqry (Qry1: tQuery, ssql: string);
Comenzar
con Qry1 do
Beign
Si está activo entonces
cerca;
sql.clear;
sql.add (ssql);
intentar
abierto
atrapar
en e: excepción do Errordialog (E.Message, E.HelpContext);
fin; // intenta
fin;
fin;
}
con query1 hacer
Comenzar
Si Pubqry.fields [0] .Asinteger> 0 entonces // primero determina si la imagen de este número de tarjeta existe.
Editar
demás
Insertar;
FieldByName ('Card_no'). Asstring: = strCard;
Tblobfield (fieldByName ('Photo')). LoadFromStream (MyStm);
Post; /
fin; // con
Finalmente
Mystm.Free;
JPEG.Free;
fin;
Finalmente
BMP.Free;
fin; // intenta
fin; // con
fin;
// Descargue primero el control TVIDEOCAP