[delphi-br] ParamByName(Blob).LoadFromFile Não Funciona

Wed, 24 Mar 2010 17:26:58 -0700 

Prezados,

O código abaixo estava funcionando sem problemas no Delphi 2007, passou a não 
funcionar a no Delphi 2009 e continua não funcionando no Delphi 2010. Esse 
código é utilizado para gravar um arquivo JPG num campo "Blob" do banco de 
dados Informix 10.0. "qeryAuxiliar" é um componente "TQuery", utilizando o BDE:


with dtmTabelas.qeryAuxiliar do 
begin
  Sql.Clear;

  Sql.Add ('insert into foto_associado');
  Sql.Add (' (cod_associado,');
  Sql.Add ('  dat_incl_foto,');
  Sql.Add ('  dat_ult_alteracao,');
  Sql.Add ('  foto)');
  Sql.Add (' values (:CodAssociado,');
  Sql.Add ('         :DatInclFoto,');
  Sql.Add ('         :DatUltAlteracao,');
  Sql.Add ('         :Foto)');

  ParamByName ('CodAssociado').AsInteger := cod_assoc_aux;
  ParamByName ('DatInclFoto').AsDate := dat_incl_aux;
  ParamByName ('DatUltAlteracao').AsDate := dat_ult_alt_aux;
  ParamByName ('Foto').LoadFromFile (endereco_aux, ftBlob);

  if (not Prepared) then
    Prepare;

  ExecSQL;
end;

Será que alguém saberia me informar qual o problema?


Obrigado,
Ricardo.

Responder a