Ajuda para Salvar 2 Imagens no MySQL

12/04/2013

1

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;
Responder

Posts

13/04/2013

Vagner Almeida

Ninguém???
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira