翻译图像中的文字: Wolfram语言 11 的新功能

翻译图像中的文字

我们可以建立一个函数，输入为一个图像，它把其中的文字翻译成英文.

In[1]:=


ImageTranslate[image_, rules___Rule] := 
 ImageTranslate[image, Association@rules]; 
ImageTranslate[image_, args_] := Module[
  {tr, gt, translatedText, to = Entity["Language", "English"], i, 
   ifc, rule, im, result = {}, recognizedList},
  
  i = Binarize@ColorNegate@image;
  ifc = ImageForestingComponents[ColorNegate@i, 
    Automatic, {First@ImageDimensions@i, 1}];
  rule = {h__, {0 ..}, w : {0 ..}, {0 ..}, t__} -> {h, w, w, t};
  im[x_] := 
   Transpose[
    Transpose[Replace[ifc, Except[x] -> 0, {2}] //. rule] //. rule];
  tr = TextRecognize[Image[im[#]], Language -> "Spanish"] & /@ 
    Range[2, Max@ifc];
  recognizedList = Flatten@List[tr];
  
  gt = args[ServiceObject];
  
  translatedText = 
   gt["Translate", "To" -> to, "Text" -> #] & /@ recognizedList;
  translatedText
  ]

连接到 Microsoft Translator API.

In[2]:=