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]
Translate.zip Archive 562ko portable sans installation. Windows XP+
[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;
Ping : Twitted by volvoxsoft
Ping : Twitted by monentrepreneur
Ping : Twitted by capitaleblogue