Integrate[Sin[a*x]/Sinh[b*x],{x,0,Infinity},Assumptions->Re[b]>0&&Abs[Im[a]]<Abs[Re[b]]]