Voici une petite procédure pour traduire un texte avec Google translate gratuitement
Code : Tout sélectionner
EnableExplicit
Procedure.s SendTranslation(SourceLang.s,TargetLang.s,Txt.s)
If InitNetwork()=0
ProcedureReturn ""
EndIf
Protected Url.s,UrlPara.s,*Temp,valret.s,N,TextTranlate.s
UrlPara=URLEncoder(Txt,#PB_UTF8)
Url="https://translate.googleapis.com/translate_a/single?client=gtx&sl="+ sourceLang + "&tl="+ targetLang+"&hl="+targetLang+"&dt=t&ie=UTF-8&oe=UTF-8&q="+UrlPara
*Temp=ReceiveHTTPMemory(Url,#PB_HTTP_NoRedirect)
valret=PeekS(*Temp,MemorySize(*Temp),#PB_UTF8)
valret=URLDecoder(valret,#PB_UTF8)
valret=RemoveString(valret,"[")
valret=RemoveString(valret,"]")
TextTranlate=StringField(valret,2,Chr(34))
ProcedureReturn TextTranlate
EndProcedure
Debug SendTranslation("fr","en","Ouvrir la fenêtre des deux côtés")
Debug SendTranslation("fr","nl","Ouvrir la fenêtre des deux côtés")
Debug SendTranslation("fr","es","Ouvrir la fenêtre des deux côtés")
