Colocar a Imagem no comando SQL

Question

caros amigos , como fa�o para colocar a imagem que esta no componente (Image) direto no comando sql?

qry_img.Close;
qry_img.SQL.Clear;
qry_img.SQL.Text := �INSERT INTO cad_img_cliente (imagem) values (:img) �;
qry_img.ParamByName(�img�).LoadFromFile(�c:\logo.jpg�,ftBlob);
qry_img.ExecSQL;

Marcelo_mileris · Answer

Qual o banco e o tipo de dados que est� usando para guardar a imagem?

var
  Imagem : TMemoryStream;
begin
  QSQL.sql.clear;
  QSQL.sql.add(�insert into tabela (nome, imagem)�);
  QSQL.sql.add(�values (:nome, :imagem)�);
  try
    QSQL.parambyName(�nome�).AsString := editNome.Text;

    // Aqui trato a imagem
    Imagem := TMemoryStream.Create;
    Image.Picture.Graphic.SaveToStream(Imagem); // Pego a imagem de um Image
    QSQL.ParamByName(�imagem�).LoadFromStream(Imagem,ftBlob);

    QSQL.ExecSQL;
  except
    on e:exception do
      begin
        Application.MessageBox(Pchar(e.message),�Erro�);
        Imagem.Destroy;
        Exit;
      end;
    end;
  Imagem.Destroy;
end;

F�rum Colocar a Imagem no comando SQL #327962