traducir texto de español a ingles desde un programa delphi

[gulder]

hola foro como andan espero que bien bueno tengo una pequeña duda y es como hago para traducir un linea de texto del español al ingles desde un programa delphi existen algunos componentes que hagan esto saludos desde ya gulder-gan

[roman]

Lo primero que se me ocurre, aunque no sé si es viable, es usar INDY para comunicarme con el traductor de Google, examinar la respuesta y pegarla en la aplicación. Así, además, podrías traducir en varios idiomas.

// Saludos

[gulder]

gracias roman por tu respuesta y una pregunta como hago eso si no es mucho pedir por que no se nada de las yndi jaja saludos

[*Caro*]

Empezado por roman

Lo primero que se me ocurre, aunque no sé si es viable, es usar INDY para comunicarme con el traductor de Google, examinar la respuesta y pegarla en la aplicación. Así, además, podrías traducir en varios idiomas.

Hola, amiguito como se hace eso, nos puedes indicar por favor .

Saluditos

[Kipow]

bueno revisando un poco el traductor me pude dar cuenta de esto:

http://translate.google.com.mx/translate_t#es|en|este%20es%20el%20texto%20a%20traducir

esta es la forma de llamar al traductor y este es el codigo del campo del resultado

<div style="text-align: left;" id="result_box" dir="ltr">This is the text to be translated</div>

Me imagino que con las indy y el objeto idhttp algo se podra hacer ahi

[gulder]

Empezado por Caro

Hola, amiguito como se hace eso, nos puedes indicar por favor .

Saluditos

opino lo mismo enseñanos salu2

[roman]

Ya Kipow lo analizó, yo sólo les pongo un ejemplito listo para ejecutar. La función que usa es un poco artesanal:

Código Delphi [-]
function GoogleTranslate(SourceLanguage, TargetLanguage, Text: String): String;
const
  GoogleUrl = 'http://translate.google.com.mx/translate_t';
  StartTag = '<div id=result_box dir="ltr">';
  EndTag = '</div>';

var
  IdHTTP: TIdHTTP;
  Fields: TStrings;
  Response: String;
  I: Integer;

begin
  IdHTTP := nil;
  Fields := nil;

  try
    IdHTTP := TIdHTTP.Create(nil);
    Fields := TStringList.Create;

    (* Asignar parámetros *)
    Fields.Values['sl'] := SourceLanguage;
    Fields.Values['tl'] := TargetLanguage;
    Fields.Values['text'] := Text;

    (* Invocar al traductor *)
    Response := IdHTTP.Post(GoogleUrl, Fields);

    (* Buscar el comienzo de la cadena traducida *)
    I := Pos(StartTag, Response);
    Delete(Response, 1, I + Length(StartTag) - 1);

    (* Buscar el final de la cadena traducida *)
    I := Pos(EndTag, Response);
    Response := Copy(Response, 1, I - 1);

    Result := Response;
  finally
    IdHTTP.Free;
    Fields.Free;
  end;
end;

Quizá sería más adecuado utilizar un analizador del documento HTML. De hecho probé con éste y funciona bien pero pensé que podíamos hhacerlo con sólo lo estándar.

Ya queda en ustedes generalizar la aplicación de ejemplo para que se puedan escoger los idiomas de la traducción.

// Saludos

[gulder]

roman gracias men probando mañana comento aca es un poco tarde y me toca temprano saludes gulder

[*Caro*]

Empezado por roman

Ya queda en ustedes generalizar la aplicación de ejemplo para que se puedan escoger los idiomas de la traducción.

Hola de nuevo, acabo de hacer una pruebita para que funcionen con los demas idiomas y funciona perfecto, muchas gracias de nuevo Roman.

Saluditos

[roman]

Hola,

Gracias a la ayuda de movorack en este hilo he actualizado este ejemplo para que sea más afín con la API de Google y no dependa de las etiquetas HTML exactas de la página de Google, pues, como puede verse ahora, el primer ejemplo ya no funciona debido a que éstas cambiaron.

Aproveché para hacer el ejemplo un poco más versátil



permitiendo al usuario escoger los idiomas de la traducción.

En esta versión, anexo el archivo languages.ini con la lista de lenguajes entre los que puede traducirse (o casi).

// Saludos