Traduction Google Rest

Une petite application qui met à profit le Service de Traduction Google REST dont on trouvera tout le détail sur cette page de Google Code:  Google Ajax API Language. La traduction peut se faire dans une vingtaine de langues.

[Téléchargement]

[Code] Fonction GoogleRest Delphi qui englobe l’API Google de traduction, d’après Marco Cantu:

function TBabelGoogleRest.DoTranslate(strIn: string): string;
var
strUrl, strResult: string;
nPosA, nPosB: Integer;
begin
Http1.Request.Referer := ''; // pas encore opérationel
strUrl := Format (
'http://ajax.googleapis.com/ajax/services/language/translate?' +
'v=1.0&q=%s&langpair=%s',
[TIdUri.ParamsEncode (strIn),
FFromLang + '%7C' + FToLang]); // format ne reconnait pas %7 !!!
strResult := Http1.Get(strUrl);
nPosA := Pos ('"translatedText":', strResult); // début de JSON data
if nPosA = 0 then
begin
nPosA := Pos ('"responseDetails":', strResult); // début de JSON data
nPosA := nPosA + Length ('"responseDetails":');
end
else
nPosA := nPosA + Length ('"translatedText":');// partage
nPosA := PosEx ('"', strResult, nPosA) + 1; // ouverture
nPosB := PosEx ('"', strResult, nPosA) - 1; // fermeture
Result := Copy (strResult, nPosA, nPosB - nPosA + 1);
end;