Procedimento tfrm1.button2Click (remetente: tabjas);
Var
JPEG: TJPEGIMAGE;
BMP: TBBITMAP;
Mystm: tmemorystream;
strfilename, strcard: string;
Começar
herdado;
strFilename: = extraCTFilePath (Application.Exename);
com dbedit12.datasource.dataSet do
Começar
se não videocap1.saveasdib, então
Começar
ShowMessage ('foto tirada falhou');
Abortar;
fim;//
BMP: = tbitmap.create;
tentar
bmp.loadfromfile (strfileName+ 'capture.bmp');
Mystm: = tmemorystream.create;
jpeg: = tjpegimage.create;
tentar
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, 'Selecione a contagem (1) como CNT de tb_photo onde card_no =' '+strcard+' ''); // Primeiro, descubra se existe o número deste cartão
OpenQry (PubQry, 'Selecione * de tb_photo onde card_no =' '+strcard+' '' '); // Abra a tabela de dados do número de cartão do cartão
{OpenQry é uma função que personaliza as tabelas de dados de abertura
OpenQry (QRY1: TQUERY, SSQL: String);
Começar
com Qry1 do
Beign
Se ativo então
fechar;
sql.clear;
sql.add (SSQL);
tentar
abrir
pegar
em E: exceção do errordialog (e.message, e.helpContext);
fim; // tente
fim;
fim;
}
com Query1 do
Começar
Se o PubQry.Fields [0] .AsInteger> 0 Então // Determine primeiro se a figura deste número de cartão existe.
Editar
outro
Inserir;
FieldByName ('Card_no'). Asstring: = strcard;
Tblobfield (FieldByName ('Photo')). LoadFromStream (mystm);
Postagem; // submissão unificada
fim; // com
Finalmente
Mystm.Free;
jpeg.free;
fim;
Finalmente
bmp.free;
fim; // tente
fim; // com
fim;
// Por favor, faça o download do controle TVideocap primeiro