DSolve[Derivative[1][y][x] == (-2*a)/(-2*a - 32*a^3*x^2 + 128*a^4*x^3 - y[x] + 16*a^2*x*y[x]^2 - 96*a^3*x^2*y[x]^2 - 2*a*y[x]^4 + 24*a^2*x*y[x]^4 - 2*a*y[x]^6),y[x],x]