Prozedur TFRM1.Button2Click (Absender: Tobject);
Var
JPEG: Tjpegimage;
BMP: tbitmap;
Mystm: tmemorystream;
Strfilename, Strcard: String;
Beginnen
geerbt;
strFileName: = extractFilepath (application.exename);
mit dbedit12.datasource.dataset do
Beginnen
Wenn nicht Videocap1.SaveasDib dann dann
Beginnen
ShowMessage ('Foto fehlgeschlagen');
Abbrechen;
Ende;//
BMP: = tbitmap.create;
versuchen
bmp.loadfromFile (strFileName+ 'capture.bmp');
MYSTM: = tmemoryStream.create;
JPEG: = tjpegimage.create;
versuchen
jpeg.assign (bmp);
jpeg.compress;
jpeg.savetofile (strFileName+'capture.jpg');
strFileName: = strFileName+'capture.jpg';
jpeg.loadfromFile (strFileName);
jpeg.savetostream (mystm);
Mystm.position: = 0;
OpenQry (Query1, 'Wählen Sie Graf (1) als CNT aus tb_photo wob
OpenQry (PUBQRY, 'SELECT * aus TB_PHOTO WHERE CARD_NO =' '+STRCARD+' '' '); // Öffnen Sie die Kartennummer -Datentabelle
{OpenQry ist eine Funktion, die Öffnungsdatentabellen anpasst
OpenQry (Qry1: TQuery, SSQL: String);
Beginnen
mit Qry1 tun
Beig
Wenn aktiv
schließen;
sql.clear;
SQL.ADD (SSQL);
versuchen
offen
fangen
on e: Ausnahme do errordialog (e.message, e.helpcontext);
Ende; // versuchen
Ende;
Ende;
}
mit query1 tun
Beginnen
Wenn Pubqry.Fields [0] .aSinder> 0 dann bestimmen Sie zuerst, ob das Bild dieser Kartennummer vorhanden ist.
Bearbeiten
anders
Einfügen;
FieldbyName ('card_no'). Assstring: = strcard;
Tblobfield (fieldbyName ('foto')). LoadFromstream (mystm);
Post;
Ende; // mit
Endlich
Mystm.free;
jpeg.free;
Ende;
Endlich
bmp.free;
Ende; // versuchen
Ende; // mit
Ende;
// Bitte laden Sie zuerst die TVIdeocap -Steuerung herunter