Traduction Google Rest

Appli_translate

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;

Trackbacks

  1. […] This post was Twitted by volvoxsoft […]

  2. […] This post was Twitted by monentrepreneur […]

  3. […] This post was Twitted by capitaleblogue […]

Exprimez vous!

*