Colocar a Imagem no comando SQL

Delphi

23/08/2006

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;


Fábio Galvão

Fábio Galvão

Curtidas 0

Respostas

Marcelo_mileris

Marcelo_mileris

23/08/2006

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;



GOSTEI 0
POSTAR