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.