PureBasic

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")