Ajuda para Salvar 2 Imagens no MySQL

Delphi

12/04/2013

Olá pessoal!

Tenho uma tabela que possui dois campos foto (foto1 e foto2) do tipo LongBlob.
Estou tentando em uma única vez gravar todos os dados inclusive as duas fotos no mesmo comando, nas mesma query.

Quando gravo uma foto por vez não apresenta problema nenhum, mas quando tento gravar as duas de uma só vez, apresenta o seguinte erro:

"Lost connection to MySQL server during query
Socket error on write. WSAGetLastError return 10053($2745)"

Estou usando o seguinte comando:
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;
Vagner Almeida

Vagner Almeida

Curtidas 0

Respostas

Vagner Almeida

Vagner Almeida

12/04/2013

Ninguém???
GOSTEI 0
POSTAR