// Salve a imagem no banco de dados
Função imagensvetosql (conjunto de dados: tquey; nome do arquivo: string): boolean;
var
ImageJPG: TJPEGIMAGE;
Mystm: tmemorystream;
Começar
resultado: = false;
Mystm: = tmemorystream.create;
imagejpg: = tjpegimage.create;
Se o nome do arquivo <> '' então
Começar
imagejpg.loadfromfile (nome do arquivo);
imagejpg.savetostream (mystm);
Mystm.Position: = 0;
Tblobfield (DataSet.fieldbyname ('pict')). LoadFromStream (mystm);
resultado: = true;
fim;
Mystm.Free;
imagejpg.free;
fim;
// Adicione o controle TDirectoryListBox e TGAUGE na interface
Procedimento tfrmpict.bitbtn2Click (remetente: tabjas);
var
Dirlist: TStringList;
I: Inteiro;
Começar
herdado;
Se Chk_Road.CHECKED, então
Começar
Dirlist: = tStringList.create;
Dirlist.clear;
tentar
Getallfilename (diretoryListBox1.directory, Dirlist);
Se Dirlist.Count> 0 então
Começar
Gauge1.MinValue: = 0;
Gauge1.maxValue: = Dirlist.Count-1;
para i: = 0 para diRlist.count-1 do
Começar
com dm.qry_pict fazer
Começar
Inserir;
Campos [0] .Asstring: = copy (diRlist.strings [i], 1, pos ('.', Dirlist.strings [i])-1);
Se imagensvetosql (dm.qry_pict, Dirlist.strings [i]) = false então então
Começar
ShowMessage ('importação'+Dirlist.strings [i]+'. JPG Erro de imagem');
Abortar;
fim;
Publicar;
fim;
Gauge1.addProgress (1);
fim;
fim // se
outro
ShowMessage ('Não existe uma imagem do tipo JPG neste diretório');
Finalmente
Dirlist.Free;
fim;
fim
outro
ShowMessage ('Por favor, execute a operação de seleção de caminho');
//Fechar;
fim;