Ajuda para Salvar 2 Imagens no MySQL
12/04/2013
0
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:
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
Curtir tópico
+ 0
Responder
Posts
Clique aqui para fazer login e interagir na Comunidade :)