Übersetzen Sie Text in ein Bild: Neu in Wolfram Language 11

Übersetzen Sie Text in ein Bild

Wir können eine Funktion bauen, die ein Bild als Eingabe erhält und den darin enthaltenen Text auf Englisch übersetzen kann.

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
  ]

Stellen Sie eine Verbindung zur Microsoft Translator-API her.

In[2]:=