Procédure tfrm1.button2click (expéditeur: tobject);
Var
JPEG: TJPEGIMAGE;
BMP: tbitmap;
MyStm: TMemoryStream;
strFileName, strcard: string;
Commencer
hérité;
strFileName: = extractFilePath (application.exename);
avec dbedit12.datasource.dataset do
Commencer
Si pas videoCap1.saveasdib alors
Commencer
ShowMessage («photo prise échouée»);
Avorter;
fin;//
bmp: = tbitmap.create;
essayer
bmp.loadFromfile (strFilename + 'capture.bmp');
Mystm: = tmeMoryStream.Create;
JPEG: = TJPEGIMAGE.CREATE;
essayer
jpeg.assign (bmp);
JPEG.
jpeg.savetofile (strFilename + 'capture.jpg');
strFileName: = strFilename + 'capture.jpg';
jpeg.loadFromfile (strFilename);
JPEG.SAVETOSTREAM (MYSTM);
Mystm.Position: = 0;
OpenQry (Query1, 'Sélectionner le nombre (1) comme CNT dans TB_Photo où Card_no =' '+ strcard +' ''); // Découvrez d'abord s'il y a ce numéro de carte
Openqry (pubqry, 'select * from tb_photo où card_no =' '+ strcard +' '' '); // ouvrez le tableau de données du numéro de carte
{OpenQry est une fonction qui personnalise les tables de données d'ouverture
OpenQry (qry1: tQuery, ssql: string);
Commencer
avec qry1 do
Croire
Si actif alors
fermer;
sql.clear;
sql.add (ssql);
essayer
ouvrir
attraper
sur e: exception do errordialog (e.message, e.helpcontext);
fin; // essayez
fin;
fin;
}
avec Query1 faire
Commencer
Si PubQry.Field [0].
Modifier
autre
Insérer;
FieldByName ('card_no'). Asstring: = strcard;
Tblobfield (fieldByName ('photo')). LoadFromStream (mystm);
Post;
fin; // avec
Enfin
Mystm.free;
jpeg.free;
fin;
Enfin
bmp.free;
fin; // essayez
fin; // avec
fin;
// Veuillez d'abord télécharger le contrôle TVIDIDEOCAP