Translating by web

microdevweb · Post by **microdevweb** » Sun Aug 16, 2015 9:08 am

Hello everybody,

For my project, i have need of translate but " google translate api " it's not free. After more find, i have find a translate' api free.

sorry for my bad English

Sample code

Code: Select all

InitNetwork()
url$ = "http://www.frengly.com/"
url$ + "?src=" + "fr"
url$ + "&dest=" +"en"
url$ +"&text="+URLEncoder("C'est un texte en Francais")
url$+"&email=yourEmail@XXX.XX" ; Used you email
url$+"&password=XXXX" ;Used your psw
tempFile$="teste.txt"
If ReceiveHTTPFile(url$, tempFile$)
      If ReadFile(0,tempFile$ )
            ;       Enc=ReadStringFormat(0)
            resul$=ReadString(0,#PB_File_IgnoreEOL|#PB_UTF8)
            response$=StringField(URLDecoder(resul$),2,"<translation>")
            response$=StringField(response$,1,"</translation>")
            Debug response$
            CloseFile(0)
      EndIf
EndIf