\documentclass{article}
\usepackage{xepersian}
\settextfont{XB Zar}
\makeatletter
\def\mycaption{%
   \ifx\@captype\@undefined
     \@latex@error{\noexpand\mycaption outside float}\@ehd
     \expandafter\@gobble
   \else
     \refstepcounter\@captype
     \expandafter\@firstofone
   \fi
   {\@dblarg{\@mycaption\@captype}}%
}
\long\def\@mycaption#1[#2]#3{%
  \par
  \addcontentsline{\csname ext@#1\endcsname}{#1}%
    {\protect\numberline{\csname the#1\endcsname}{\ignorespaces #2}}%
  \begingroup
    \@parboxrestore
    \if@minipage
      \@setminipage
    \fi
    \normalsize
    \@makemycaption{\ignorespaces #3}\par
  \endgroup}
\long\def\@makemycaption#1{%
  \vskip\abovecaptionskip
  \sbox\@tempboxa{#1}%
  \ifdim \wd\@tempboxa >\hsize
    \if@RTL\beginR\fi#1\if@RTL\endR\fi\par
  \else
    \global \@minipagefalse
    \hb@xt@\hsize{\if@RTL\beginR\fi\hfil\box\@tempboxa\hfil\if@RTL\endR\fi}%
  \fi
  \vskip\belowcaptionskip}
\makeatother
\begin{document}
\begin{table}
\mycaption{ این یک تصویر است این یک تصویر است این یک تصویر است این یک تصویر است این یک تصویر است این یک تصویراین یک تصویر است این یک تصویر است این یک تصویر است این یک تصویر است این یک تصویر است این یک تصویر است}
\end{table}
\end{document}