PureBasic Forums - English

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