Fórum Ajuda para Salvar 2 Imagens no MySQL #439566

with dm.qry_a do
begin
  SQL.Add('INSERT INTO igreja (codigo, razao, cnpj, ativo');
  if dlgOpenFoto1.FileName <> '' then    
    SQL.Add(', foto1');
  if dlgOpenFoto2.FileName <> '' then 
    SQL.Add(', Foto2');
  SQL.Add(') VALUES(:codigo, :razao, :cnpj, :ativo');

  if dlgOpenIgreja.FileName <> '' then
    SQL.Add(', :imgigreja');

  if dlgOpenPadroeiro.FileName <> '' then
    SQL.Add(', :imgpadroeiro ');

  SQL.Add(')');
  ParamByName('codigo').AsInteger          := StrToIntDef(Codigo.Text,0);
  ParamByName('razao').AsString            := Razao.Text;
  ParamByName('cnpj').AsString             := CNPJ.Text;

  if Ativo.Checked then
       ParamByName('ativo').AsString       := 'S'
  else ParamByName('ativo').AsString       := 'N';

  if dlgOpenFoto1.FileName <> '' then
    ParamByName('foto1').LoadFromFile(dlgOpenFoto1.FileName, ftBlob);

  if dlgOpenFoto2.FileName <> '' then
    ParamByName('foto2').LoadFromFile(dlgOpenFoto2.FileName, ftBlob);

  ExecSQL;