Consulta Blob

[darkerviti]

Buenas,

Estoy haciendo una aplicación que tiene que insertar un .DOC en un campo blob, he estado leyendo por ahi y todo lo que pruebo me da error, el error es siempre el mismo:

No se admite el tipo de datos

Este error me da siempre que intento hacer el open de la query.

Os pego el codigo de la funcion a ver si me podeis arrojar un poco de luz.

Muchas gracias.

procedure TFInformeSup.btnEnviarClick(Sender: TObject);
var
  stream: TMemoryStream;
  query : TADOquery;
begin
  if (tipo_param > 0) and (zona_inf > 0) then
  begin
    if FileExists(eInforme.Text) then
    begin
      try
        query := TADOQuery.Create(nil);
        query.Connection := DM.conexion;
        stream := TMemoryStream.Create;
        if stream = nil then
        begin
          ShowMessage('No se ha podido leer el fichero.');
          Exit
        end;
        query.SQL.Add('SELECT * FROM azul_ficherossuperacion);
        stream.LoadFromFile(eInforme.Text);
        stream.Seek(0, 0);
        query.Open;
        try
          query.Append;
        except
          on E: Exception do ShowMessage(E.Message);
        end;
        query.FieldByName('nombre_fs').AsString := 
                              uppercase(ExtractFileName(eInforme.Text));
        TBlobField(query.FieldByName('ficherosup_fs')).LoadFromStream(stream);
        try
          query.Post;
        except
        end;
        query.Close;
      finally
        stream.free;
        query.Close;
        query.Free;
      end;
    end
    else
      ShowMessage('Por favor, seleccione un archivo a enviar válido.');
  end
  else
    ShowMessage('Por favor, seleccione un parámetro y/o zona.');
end;

[darkerviti]

Ya está solucionado, he tenido que cambiar el provider y con eso todo funcionando.

Un saludo y gracias.