Android Code Snippet [B4X] Simple Google Translate Class (attached for download)

Translation of texts from the source language to the target language with Google Translate (free)

Sorry, the class and example are now attached for download.

    Dim Translate As clsGoogleTranslate
    Translate.Initialize
    'Local to engles
    Wait For (Translate.Target("en").Text(B4XFloatTextField1.Text)) Complete (Result As String)
    'Engles to italian
    Wait For (Translate.Source("en").Target("it").Text(B4XFloatTextField1.Text)) Complete (Result As String)
    B4XFloatTextField2.Text = Result

SAMPLES:
Local to Engles

    Wait For (Translate.Target("en").Text(B4XFloatTextField1.Text)) Complete (Result As String)

Engles to italian

    Wait For (Translate.Source("en").Target("it").Text(B4XFloatTextField1.Text)) Complete (Result As String)

Regards

 

[Mashiane]

Hi

Can you please attach the class? Thanks.

Awesome work!

 

[Theera]

I think that your work can be used in this in order to help the non-English developers understand the libraries about the usage.

 

[AnandGupta]

clsGoogleTranslate

Is this class in B4X library ?

 

[fernando1987]

This doesn't need an api key I use it at Lingua Locator

Sub Translate(word As String, lang1 As String, lang2 As String)
   
    Try
' Declare variables for the HttpJob and JSONParser and initialize them.
Dim j As HttpJob, parser As JSONParser
j.Initialize("", Me)
parser.Initialize("")

' Construct the URL for the Google Translate API request with the given parameters.
Dim url As String = "https://translate.googleapis.com/translate_a/single?client=gtx&sl=" & lang1 & "&tl=" & lang2 & "&dt=t&q=" & word
 
' Download the translation data from the API using the HttpJob.
j.Download(url)
 
' Wait for the HttpJob to finish and handle the result.
Wait For (j) JobDone(j As HttpJob)
 
' If the request was successful, parse the response and extract the translated word.
If j.Success = True Then
    Dim s As String = j.GetString.Trim
    parser.Initialize(s)
    Dim outerList As List = parser.NextArray
   
    ' Check if the response contains the translated word.
    If outerList.Size > 0 Then
        Dim innerList As List = outerList.Get(0)
        If innerList.Size > 0 Then
            Dim firstNonNullElement As List = innerList.Get(0)
            If firstNonNullElement <> Null Then
                Log(firstNonNullElement.Get(0))
               
               
            End If
        End If
    End If
Else
    Log(2)
    ' Handle the error if necessary.
End If
 
' Release the HttpJob.
j.Release
 
' Handle exceptions if necessary.
Catch
Log(LastException)
End Try
End Sub

 

[TILogistic]

?

[B4X] Localizator - Script for Excel to translate directly from google translate

I share an Excel file with a visual macro to translate directly using google translate, It also detects and warns if any key is repeated in red. I use it a lot in my apps, thanks to B4XLocalizator https://www.b4x.com/android/forum/threads/b4x-localizator-localize-your-b4x-applications.68751/

www.b4x.com

B4XTable - B4XLocalizator

Hola, si has utilizado [B4X] Localizator - Localiza tus aplicaciones B4X, sabes que tienes que usar Excel para añadir las claves y luego traducir cada una de ellas al idioma de destino. Con esta herramienta agregas las claves directamente al B4XTable y luego puedes hacer clic en las celdas para...

www.b4x.com

 

[TILogistic]

Note:
This class I posted only uses Google Translate, but the original version uses other translation services.

In addition, the class can be used on multiple platforms (b4i, b4a, b4j, etc.)

 

[Alexander Stolte]

This class I posted

And where is this class that you supposedly “posted”?

 

[Mashiane]

This class I posted

I guess its one of those honest mistakes we do and forget to include the attachment. We will wait patienty for the attachment.

 

[TILogistic]

And where is this class that you supposedly “posted”?

Sorry, the class and example are now attached for download.

 

[TILogistic]

I guess its one of those honest mistakes we do and forget to include the attachment. We will wait patienty for the attachment.

Yes, when I published I was working and updating a T.O.S (Terminal Operating System) for Ecuador.

 

[TILogistic]

Note:
Edit Class (For IOS):

Private Sub GetDeviceLanguage As String
#If B4J or B4A
    Dim jo As JavaObject
    jo = jo.InitializeStatic("java.util.Locale").RunMethod("getDefault", Null)
    Return jo.RunMethod("getLanguage", Null)
#Else
    Dim no As NativeObject
    Return no.Initialize("NSLocale").RunMethod("preferredLanguages", Null).RunMethod("objectAtIndex:", Array(0)).AsString
#End If
End Sub

Other translation services:

Top Translation APIs

# Translation API ## About translation APIs Get accurate translations for billions of words and hundreds of languages with translation APIs. ## What is a translate API? A translate (or translation) application programming interface (API) is a service that allows subscribers to add word...

rapidapi.com

 

[aeric]

Suggestion to add 2 comboboxes for source and target languages.

 

[TILogistic]

Suggestion to add 2 comboboxes for source and target languages.

You can create combo boxes with ISO 639-1 language codes and call the class to translate the text. Remember that the class is translation and how you use it is up to you.

ISO 639-1 - Wikipedia, la enciclopedia libre

es.wikipedia.org

 

[TILogistic]

NOTE:
See the class header, it contains more information.

 

[TILogistic]

You can create combo boxes with ISO 639-1 language codes and call the class to translate the text. Remember that the class is translation and how you use it is up to you.

ISO 639-1 - Wikipedia, la enciclopedia libre

es.wikipedia.org

Here you will find json and others with the ISO-639 codes of languages

GitHub - haliaeetus/iso-639: ISO 639 language codes with names in English, French & German, provided in JSON & CSV or as a NodeJS module.

ISO 639 language codes with names in English, French & German, provided in JSON & CSV or as a NodeJS module. - haliaeetus/iso-639

github.com

search:

ISO 639-1 language json - Google Search

 

[TILogistic]

NOTE:
I will soon publish a custom Combobox, where you can use the database, Json, XML, etc. and you can define the columns or data to display in the combo (image, text, etc.).

B4X: simple example

SEE MORE:

[B4X] Free Geolocation Nominatim (Geocoding API)

Here's a demo of how to use the nominatim geocoding API for free. Note: There are other geocoding options if you want to know, leave your comments. Demo file attached Sub GeoCoderNominatim(Query As String) As ResumableSub Dim ResultURL As String Dim j As HttpJob Dim Parameter() As...

www.b4x.com