8 replies to this topic

[Marc]

Hola amigos.

Llevo un par de días atascado con el Traductor Automático de Microsoft, y me gustaría compartirlo con vosotros a ver si alguien ve el problema que me encuentro.

En una aplicación quiero poder traducir automáticamente textos entre Castellano, Inglés y Francés. En un principio pensé en utilizar el Google Translator, pero Google te cobra desde la primera traducción, así que me he decidido por el Bing Translator de Microsoft, que solo te cobra a partir de más de 2 millones de traducciones al mes (y yo solo pienso llegar a unos pocos centenares).

En principio parece tremendamente sencillo de utilizar como WebService.

1) De esta dirección me bajo el archivo WDSL que define el Servicio : http://api.microsoft...2/soap.svc?wsdl

2) En una aplicación nueva, voy a Components -> Import WDSL, e importo ese archivo (cosa que añade una nueva Unit al programa).

3) Ya solo tengo que añadir esa nueva Unit al Uses del formulario, y ejecutar este código :

delphi

const AppID = '71rBoF0cOf***************';
 
ShowMessage(GetLanguageService(True, '', nil).Translate(AppID, 'Hello World', 'en', 'es', 'text/plain', 'general'));

El caso es que la llamada se ejecuta perfectamente, y el Servidor de Microsoft responde. Pero en lugar de devolverme la traducción de "Hello World", me indica que mi AppID no es válida.

Me he creado una cuenta http://datamarket.azure.com/



Me he suscrito al Microsoft Translator.

[img width=722 height=600]http://www.idata.com.es/tmp/WebService2.jpg[/img]

Y he registrado una aplicación propia.

[img width=800 height=528]http://www.idata.com.es/tmp/WebService3.jpg[/img]

He probado usando los tres códigos como AppID (Clave de Cuenta, ID de Cliente y ID de programa) pero ninguno me lo reconoce como válido (sé que es el servidor quien responde, porque si pongo como parámetro un código de lenguaje inexistente, el servicio me devuelve el error de lenguaje no válido, cosa que solo la puede identificar el servidor).

¿ Alguién ha utilizado la API de Servicios Web de Microsoft y sabe que código tengo que usar para acceder a ese servicio ?.

Gracias.

[luisgutierrezb]

de la ayuda de microsoft, no se si te sirva:

appId
Required. If the Authorization header is used, leave the appid field empty else specify a string containing "Bearer" + " " + access token.

lo saque de:

http://msdn.microsof...y/ff512437.aspx

No eh usado el servicio de traducción, así que no puedo ayudar mucho, espero te sirva

[Marc]

Gracias por el interés.

Si añado esa cadena al principio del identificador, entonces el error que salta es otro: The Web Token must have a signature at the end. The incoming token did not have a signature at the end of the token. :ID=3925.V2_Soap.Translate.51C02A16.

[Marc]

Por ahora voy a utilizar el servicio mediante HTTP en lugar de WebService, tal y como se define en este artículo (hay que ir a los comentarios, puesto que el artículo describe el servicio antiguo, ya dado de baja). http://theroadtodelp...v2-from-delphi/

Pero si alguien puede usar el WebService, le agradecería que me indicara que es lo que estaba haciendo mal. Puesto que preferiría usar el WebService, mediante HTTP no me respeta los saltos de línea (ya que toda la cadena a traducir se debe poner en una URL), así como tampoco puedo traducir texto enriquecido (texto con formato en HTML).

Si lo queréis usar solo tenéis que añadir esta Unit a vuestros proyectos :

delphi

unit Traductor;
 
interface
 
  function Traduccion(const AText, SourceLng, DestLng: string): string;
 
implementation
 
uses SysUtils, MSXML, IdURI, IdHTTP, IdSSLOpenSSL;
 
const ApplicationId = '71rBoF0cOfKzV4jv29*********************';  // Aquí hay que usar vuestra cuenta en http://datamarket.azure.com
 
function Traduccion(const AText, SourceLng, DestLng: string): string;
const
  MicrosoftTranslatorTranslateUri = 'http://api.datamarket.azure.com/Bing/MicrosoftTranslator/v1/Translate?appId=%s&Text=%s&From=%s&To=%s';
  Msxml2_DOMDocument = 'Msxml2.DOMDocument.6.0';
var
  LIdHTTP: TIdHTTP;
  LIOHandler: TIdSSLIOHandlerSocketOpenSSL;
  LIndex: integer;
  URI, Response: string;
  XMLDOMDocument  : IXMLDOMDocument;
  XMLDOMNode      : IXMLDOMNode;
  XMLDOMNodeList  : IXMLDOMNodeList;
  cXMLDOMNode     : IXMLDOMNode;
begin
  LIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  try
    LIOHandler.SSLOptions.Method := sslvTLSv1;
    LIOHandler.SSLOptions.Mode := sslmUnassigned;
    LIOHandler.SSLOptions.VerifyMode := [];
    LIOHandler.SSLOptions.VerifyDepth := 0;
    LIOHandler.Host := '';
 
    LIdHTTP := TIdHTTP.Create(nil);
    try
      LIdHTTP.Request.ContentEncoding := 'utf-8';
      LIdHTTP.Request.BasicAuthentication := true;
      LIdHTTP.Request.UserName := ApplicationID;
      LIdHTTP.Request.Password := ApplicationID;
      LIdHTTP.IOHandler := LIOHandler;
      URI := Format(MicrosoftTranslatorTranslateUri, ['%27'+TIdURI.PathEncode(AText)+'%27', '%27'+DestLng+'%27', '%27'+SourceLng+'%27']);
      Response := LIdHTTP.Get(URI);
      XMLDOMDocument:=CoDOMDocument.Create;
      try
        XMLDOMDocument.loadXML(Response);
 
        if (XMLDOMDocument.parseError.ErrorCode<>0) then
          raise Exception.CreateFmt('Error in Xml Data %s', [XMLDOMDocument.parseError]);
        XMLDOMNode := XMLDOMDocument.selectSingleNode('/feed');
        XMLDOMNodeList := XMLDOMNode.selectNodes('//entry');
 
        if XMLDOMNodeList<>nil then
        for LIndex:=0 to  XMLDOMNodeList.length-1 do
        begin
           cXMLDOMNode:=XMLDOMNode.selectSingleNode(Format('//entry[%d]/content/m:properties/d:Text',[LIndex]));
           Result:=String(cXMLDOMNode.Text);
           Break;
        end;
 
      finally
        XMLDOMDocument:=nil;
      end;
    finally
      LIdHTTP.Free;
    end;
  finally
    LIOHandler.Free;
  end;
end;
 
end.

Ejemplo de usar la traducción en un formulario cualquiera :

delphi

...
uses Traductor;
...
 
...
...
ShowMessage(Traduccion('Hola Mundo', 'es', 'en'));
...

Recordad que tenéis que crearos una cuenta en http://datamarket.azure.com/



Y suscribiros al Microsoft Translator. http://datamarket.az...osofttranslator (hay una suscripción gratuita de hasta 2 millones de traducciones al mes).

[img width=722 height=600]http://www.idata.com.es/tmp/WebService2.jpg[/img]

[egostar]

Ya he obtenido mis ID's y tampoco he podido consumir el webService, me regresa el mismo error que a ti, ya veré que es lo que se requiere

Saludos

[Marc]

Ya he obtenido mis ID's y tampoco he podido consumir el webService, me regresa el mismo error que a ti, ya veré que es lo que se requiere

Saludos

Si lo descubres te lo agradecería. Por HTTP funciona bien, pero el texto que le puedes pasar es más limitado (sin saltos de línea, formato, ...).

Esta mañana dejé una consulta en los Foros de Microsoft, pero no parece que tengan mucha actividad.

http://social.msdn.m...osofttranslator

[Sergio]

Marc, parece ser que una vez registra la aplicacion y esas cosas, y antes de conectar con el webservice, has de conseguir el token con una llamada por http: a un servidor de tokens que te devuelve la informacion en json, y luego usas ese token en la conexion del webservide:

http://msdn.microsof...y/hh454950.aspx

Aqui otro ejemplo:

http://weblog.west-w...ine-Translation

Espero que vaya encaminado!

[Marc]

Hola Sergio, gracias por buscar esta información.

Marc, parece ser que una vez registra la aplicacion y esas cosas, y antes de conectar con el webservice, has de conseguir el token con una llamada por http: a un servidor de tokens que te devuelve la informacion en json, y luego usas ese token en la conexion del webservide:

http://msdn.microsof...y/hh454950.aspx

Aqui otro ejemplo:

http://weblog.west-w...ine-Translation

Espero que vaya encaminado!

Fíjate que estos ejemplos son usando el protocolo HTTP y no un WebService. Pero ya he utilizado el traductor con protocolo HTTP y funciona bien (el código que he puesto en el segundo mensaje), sin necesidad de crear un token de seguridad.

Y es que por lo que he leído el token de seguridad se crea para cuando no quieres que se transmita arriba y abajo tu cuenta Bing. Para ello consigues un token temporal y lo utilizas en su lugar, pero la verdad es que a mi no me importa lo más mínimo que me pueden interceptar mi código de cuenta (la he creado solo para esto).

Un placer saludarte de nuevo 

[egostar]

Marc, parece ser que una vez registra la aplicacion y esas cosas, y antes de conectar con el webservice, has de conseguir el token con una llamada por http: a un servidor de tokens que te devuelve la informacion en json, y luego usas ese token en la conexion del webservide:

http://msdn.microsof...y/hh454950.aspx

Aqui otro ejemplo:

http://weblog.west-w...ine-Translation

Espero que vaya encaminado!

En efecto, hay varios servicios web que solicitan un token antes de generar la llamada al método principal y ya había pensado que ese era el problema, pero ya hice la prueba y tampoco puedes obtener el token, muestra el mismo error de AppID no válido

Saludos