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;
Recherche personalisée avec l’API Ajax Google
J’ai ajouté une recherche personalisée à ma page à l’aide de l’API Ajax de Google. Ce qui m’appparaissait simple au premier coup d’oeil, en consultant les nombreux exemples fournis, s’est quelque peu compliqué par la suite lorsque j’ai mis la main à la pâte. Je présente ici la démarche qui s’applique à mon cas mais à d’autres aussi certainement. Le résultat est visible sur ma page dans la colonne de gauche.
Poésie illustrée Google
[mise à jour au 13 juin 2009 - Filtre de censure pour les images] L’idée est simple et met à profit la recherche d’images sur Google. Vous écrivez un texte et le faite interpréter par Google qui va substituer les mots par des images.
