GOOGLE TRADUCTION

Commentaire de PaTaTe le 10/03/2009 12:18:05

Tu as vérifié ton code avant de le poster ? Chez moi il plante sur le code de w_StatusTextChange. Je ne saurais trop te conseiller de mettre ton code en Option Explicit

Commentaire de us_30 le 10/03/2009 23:50:04

encore moi...

En guise d'amélioration, il faudrait mettre la boite de texte "source" en multilignes.

Ensuite, il faudrait également changer la police en fonction de la langue traduite, car pour le chinois ou autre, la police de caractère renvoi des "?" ...

=

Pour le code, on peut également simplifier le choix de la langue par une fonction dans un module, comme ceci :

Function Choix_Langue(Txt As String) As String

Select Case Txt
Case "Anglais": Choix_Langue = "en"
Case "Français": Choix_Langue = "fr"
Case "Arabe": Choix_Langue = "ar"
Case "Italien": Choix_Langue = "it"
Case "Espagnol": Choix_Langue = "es"
Case "Bulgare": Choix_Langue = "bg"
Case "Albanais": Choix_Langue = "sq"
Case "Allemand": Choix_Langue = "de"
Case "Chinois": Choix_Langue = "zh-CN"
Case "Grec": Choix_Langue = "el"
Case "Hébreu": Choix_Langue = "iw"
Case "Japonais": Choix_Langue = "ja"
Case "Roumain": Choix_Langue = "ro"
Case "Russe": Choix_Langue = "ru"
End Select

End Function

=

puis, les clicks sur les bandeaux sont inutiles... le reste du code, pourrait plus simplement être ainsi :

' Déclarations des paramètres
Dim lang_s As String        'lang_r --> Langue destinataire
Dim lang_r As String        'lang_s --> Langue source
Dim Tempo As String
Dim Document0 As HTMLDocument 'Document0 comme document
Dim Element As HTMLDDElement 'Element comme element d'un document

Private Sub Form_Load()
' Initialisation des langues par défaut ici : Anglais et Français
lang_s = "en"
lang_r = "fr"
End Sub

Private Sub permuter_Click()
' Permutation des langues
Tempo = lgs.Text: lgr.Text = lgs.Text: lgs.Text = Tempo
End Sub

Private Sub traduire_Click()
' Envoi au traducteur Google

'Message
Result.Text = "Traduction en cours ..."
Result.Enabled = False

'Choix des langues
lang_r = Choix_Langue(lgr.Text)
lang_s = Choix_Langue(lgs.Text)

'le w c'est notre WebBrowser
w.navigate "http://translate.google.com/translate_t?text=" & Source & "&langpair=" & lang_s & "|" & lang_r

End Sub

Private Sub w_StatusTextChange(ByVal Text As String)
'On test si le chargement de la page est terminé
If Text = "Terminé" Then
'On inisialise le document du contenu HTML
Set Document0 = w.document
  'On initialise l'element qu'on veut à savoir le resultat
Set Element = Document0.getElementById("result_box")
On Error Resume Next
Result = Element.outerText
Result.Enabled = True
End If

End Sub

=

Voilà... On pourrait penser à plus d'options ensuite, comme la reconnaissance de la langue du PC utilisateur, pour la mettre par défaut, ou encore identifier la langue du texte à traduire (par statistique) pour la proposer également par défaut... Bref, imaginer des petits plus, par rapport à l'interface de Google...

=

Amicalement,
Us.

Commentaire de us_30 le 11/03/2009 00:36:08

euh... corrigé la fonction citée au-dessus avec ceci donc :

Select Case Txt
Case "Anglais": Choix_Langue = "en"
Case "Français": Choix_Langue = "fr"
Case "Arabe": Choix_Langue = "ar"
Case "Italien": Choix_Langue = "it"
Case "Espagnol": Choix_Langue = "es"
Case "Bulgare": Choix_Langue = "bg"
Case "Albanais": Choix_Langue = "sq"
Case "Allemand": Choix_Langue = "de"
Case "Chinois": Choix_Langue = "zh-CN"
Case "Grec": Choix_Langue = "el"
Case "Hébreu": Choix_Langue = "iw"
Case "Japonais": Choix_Langue = "ja"
Case "Roumain": Choix_Langue = "ro"
Case "Catalan": Choix_Langue = "ca"
Case "Danois": Choix_Langue = "da"
Case "Estonien": Choix_Langue = "et"
Case "Hindi": Choix_Langue = "hi"
Case "Indonésien": Choix_Langue = "id"
Case "Norvégien": Choix_Langue = "no"
Case "Lituanien": Choix_Langue = "lt"
Case "Maltais": Choix_Langue = "mt"
Case "Néerlandais": Choix_Langue = "nl"
Case "Polonais": Choix_Langue = "pl"
Case "Turc": Choix_Langue = "tr"
Case "ukrainien": Choix_Langue = "uk"
End Select

Amicalement,
Us.

Commentaire de PaTaTe le 11/03/2009 00:50:29

3 posts en moins de 10 minutes, t'aurais pu regrouper en un seul non :D

Commentaire de Patrice99 le 11/03/2009 16:13:01

J'ai pas réussi à le faire marcher en VB6 (manque INKED.DLL), mais par contre, il fonctionne bien en VB 2008 !
Petite amélioration pas mal à faire : mémoriser les 2 langues en quittant et les rappeler au prochain démarrage, et faire 2 boutons traduire : l'un dans un sens, et l'autre dans l'autre sens, ce qui permet d'éditer un texte aussi bien dans la langue source que dans la langue de destination, ce qui permet de vérifier et d'essayer plusieurs traductions.

Commentaire de us_30 le 11/03/2009 22:12:14

Bonsoir,

J'ai pas la solution, mais une piste.

Visiblement pour les langues faisant appellent au jeu de caractère étendu (unicode), Google attend un codage du texte... exemple, ton message en arabe doit etre envoyé avec ceci :
http://translate.google.fr/translate_t#ar|en|%D9%85%D8%B1%D8%AD%D8%A8%D8%A7%20%D8%8C%20%D8%A3%D9%86%D8%A7%20%D8%A7%D8%B3%D8%AA%D8%AE%D8%AF%D8%A7%D9%85%20%D8%AC%D9%88%D8%AC%D9%84%20%D9%84%D9%84%D8%AA%D8%B1%D8%AC%D9%85%D8%A9

IL faut voir du côté des caractères unicode, mais je n'ai pas trouvé comment retrouver les valeurs que google a besoin...

SI cela peut d'aider a y voir clair, voici un bout code donnant le message en unicode (en nb decimal) à mettre dans traduirebtn_Click...

Dim t, message
For t = 1 To Len(source)
message = message & AscW(Mid(source, t, 1)) & "  "
Next t
MsgBox message

Hélas, la conversion en Hex ne semble pas donner les bonnes valeurs à passer à Google. De plus, Google tient compte du sens de l'écriture, qui ici est de la droite vers la gauche.

Amicalement,
Us.

Commentaire de Sechaud le 13/03/2009 11:51:22

Pas mal comme programme.
Par contre, pourquoi aller écrire dans la Base de registre alors qu'un petit fichier ini suffirait à mémoriser nos choix. Personnellement j'ai supprimé ça
et mis dans le load:
'Initialisation des langues par défaut ici : Anglais et Français
lang_s = "en"
lang_r = "fr"
lgs.Text = "Anglais"
lgr.Text = "Français"

Je ne connaissais pas Inked.dll et je constate, chez moi, qu'un clic droit ne donne pas de popup permettant de coller le texte à traduire. On doit utiliser le Control + v pour coller le texte que l'on veut traduire.
Ce qui serait bien c'est de pouvoir charger un fichier, mais reste à savoir comment. Pour le moment je n'ai pas trouvé d'infos correctes sur l'utilistion de cette dll.

Dans Google traduction, on a accès au popup et comme le dit US_30 on gère aussi une adresse Web. Donc, à mon avis il eut été plus simple de seulement utiliser le WebBrowser et d'appeler la page de Google Traduction.
mais reste que ton travail est valable car il permet de dimensionner les pages sources et résultat.

Commentaire de us_30 le 15/03/2009 20:23:03

Bonsoir,

Eurêka !

Pour faire la traduction des langues Arabe, Grec et autres, utilisant
des alphabets codés en unicode par GOOGLE, il faut les convertir en
unicode UTF8...

Pour un peu d'explication sur le sujet voici une page à lire :
http://sebsauvage.net/python/charsets_et_encoding.html

Pour le codage en VB6 de UTF8, comme on trouve pas de chose sur VBF, je suis
tombé sur le code (parfait) de "fredlynx"... à la page :
http://www.vbfrance.com/forum/sujet-TRANSFORMER-TEXTE-UTF-AVEC-VB6_220964.aspx

=

Pour intégrer donc cette conversion, il suffit de mettre un Module2 et de coller
le code suivant : (donc de fredlynx)

=

Option Explicit

' http://www.vbfrance.com/forum/sujet-TRANSFORMER-TEXTE-UTF-AVEC-VB6_220964.aspx
' de fredlynx

Private Declare Function MultiByteToWideChar Lib "Kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "Kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long

Private Const CP_ACP = 0
Private Const CP_UTF8 = 65001

Public Function UTF8_Encode(ByVal Text As String) As String

Dim sBuffer As String
Dim lLength As Long

lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(Text), -1, 0, 0, 0, 0)
sBuffer = Space$(lLength)
lLength = WideCharToMultiByte(CP_UTF8, 0, StrPtr(Text), -1, StrPtr(sBuffer), Len(sBuffer), 0, 0)
sBuffer = StrConv(sBuffer, vbUnicode)
UTF8_Encode = Left$(sBuffer, lLength - 1)

End Function

Public Function UTF8_Decode(ByVal Text As String) As String

Dim lLength As Long
Dim sBuffer As String

Text = StrConv(Text, vbFromUnicode)
lLength = MultiByteToWideChar(CP_UTF8, 0, StrPtr(Text), -1, 0, 0)
sBuffer = Space$(lLength)
lLength = MultiByteToWideChar(CP_UTF8, 0, StrPtr(Text), -1, StrPtr(sBuffer), Len(sBuffer))
UTF8_Decode = Left$(sBuffer, lLength - 1)

End Function

=

Puis de modifier la ligne d'envoi dans "traduirebtn_Click", par :

' Envoi au traducteur Google
w.navigate "http://translate.google.com/translate_t?text=" & UTF8_Encode(source.Text) & "&langpair=" & lang_s & "|" & lang_r

et le tour est joué !

=

Maintenant, on peut également de manière équivalente, le code de conversion de  "EBArtSoft"
proposé en snippets :
http://www.codyx.org/snippet_ainsi-vers-utf8-vice-versa_54.aspx

ce qui donnera la modification de la ligne d'appel, comme ceci :
w.navigate "http://translate.google.com/translate_t?text=" & AToUTF8(source.Text) & "&langpair=" & lang_s & "|" & lang_r

=

Amicalement,
Us.
Amicalement,
Us.

Commentaire de Sechaud le 16/03/2009 11:22:02

Merci à Vbnino d'avoir implanté le clic droit et la possibilité de charger un texte.
Félicitations à US-30 pour la gestion des textes nécessitant l'UTF 8 . Ca marche bien.

Commentaire de us_30 le 16/03/2009 23:20:18

Euh... encore moi...

En ce qui concerne les menus popup, il me semble que la solution proposée par Sechaud était plus assurée, dans le sens où il n'y a pas de confusion entre la source et le résultat... En effet, actuellement tu appliques le même popup quelque soit le menu, or si la selection par l'utilisateur n'est pas effective, on peut arriver à faire (par exemple) un coller dans la boite resultat, en ayant un menu popup affiché sur la boite source... curieux pour l'utilisateur lambda... c'est encore plus évident avec le fichier à ouvrir qu'on peut activer dans la boite "result" mais s'appliquant à la source...

Le mieux, serait de faire 2 menus distincts pour chaque boite. Et si tu veux utiliser l'astuce des raccourcis clavier, il suffit alors de cibler la boite correspondante en la selectionnant (ici lui envoyer le Focus) avant SendKeys...

=

En clair, dans Main faire deux menus ainsi :

1er menu
--------
caption : &Edition_Source / name : edit_source
caption : ...&Copier / name : copy_source
caption : ...Co&ller / name : paste_source
caption : ...&Selectionner Tout / name : AllSelect_source
caption : ...- / name : jump
caption : ...&Traduire à partir d'un fichier texte / name : open_from_source

2 ime Menu
----------
identique en structure avec les noms "result" au lieu de "source", et sans la dernière option.

=

Puis les codes :

Private Sub copy_source_Click()
source.SetFocus
SendKeys "^{C}"
End Sub

Private Sub Allselect_source_Click()
source.SetFocus
SendKeys "^{a}"
End Sub

Private Sub paste_source_Click()
source.SetFocus
SendKeys "^{V}"
End Sub

Private Sub open_from_source_Click()
Dim file As New FileSystemObject
Dim contenu As TextStream
cmd.ShowOpen
If cmd.FileName <> "" Then
Set contenu = file.OpenTextFile(cmd.FileName, ForReading, False, TristateUseDefault)
   source.Text = contenu.ReadAll
End If
End Sub

Private Sub copy_result_Click()
result.SetFocus
SendKeys "^{C}"
End Sub

Private Sub Allselect_result_Click()
result.SetFocus
SendKeys "^{a}"
End Sub

Private Sub paste_result_Click()
result.SetFocus
SendKeys "^{V}"
End Sub

Private Sub result_MouseDown(ByVal Button As Integer, ByVal ShiftKey As Integer, ByVal xMouse As Long, ByVal yMouse As Long)
' Affichage popup
If Button = 2 Then PopupMenu edit_result
End Sub

Private Sub source_MouseDown(ByVal Button As Integer, ByVal ShiftKey As Integer, ByVal xMouse As Long, ByVal yMouse As Long)
' Affichage popup
If Button = 2 Then PopupMenu edit_source
End Sub

=

On pourrait également rajouter l'option "Effacer tout", avec la combinaison "Selection Tout" + DEL, soit par exemple :

Private Sub Clear_source_click()
source.SetFocus
SendKeys "^{a}{DEL}"
End Sub

=

Amicalement,
Us.

Commentaire de us_30 le 17/03/2009 11:31:43

Bonjour à tous,

En effet, retenir dans une variable l'endroit où le menu est appeler, pour l'utiliser ensuite afin de condenser le codage et éviter ainsi de créer deux menus est une bonne autre solution.
On peut également, penser à "mixer" ces deux proposition pour continuer à l'utiliser l'astuce des raccourcis clavier... c'est comme on le sent ensuite...

Amicalement,
Us.

Commentaire de us_30 le 17/03/2009 22:43:49

Bonsoir,

Je vois moins d'inconviénient à conserver l'exportation des données tel que vbnino l'a programmé. En effet, si on veut une traduction en Hébreu, il faut absolument que cela soit en UTF8 pour être lu sur un logiciel assez puissant (WORD)... (On utilise alors un filtre en UTF8). Sinon, on ne peut rien retrouver... quant au bloc note, ben, pour du texte sans caractère spécial, cela pourra aller sinon tant pis.

Sinon, j'ai repris le code de MAIN, en le restructurant un peu et en y mettant qlq commentaires (bien sur tj un peu perso). J'ai également supprimé qlq petites choses inutiles. "DoEvents" n'a strictement aucune justification ici. L'utilisateur à en permanence la main... La traduction se fait en "parrallèle" et donc permet de faire ce que l'on veut pendant le temps d'attente, même fermer l'application... donc DoEvents ?... Ensuite, dans la base de registre, il est inutile également d'enregistrer les valeurs Lang_r et Lang_s, car elles sont retrouvés avec la fonction Choix_Langue, vu précédemment. Et pour finir, j'ai mis un certain ordre dans les SUB... Ah ! si, aussi, une modification de Selection Tout à ma manière pour rester cohérent avec les raccourcis, mais bon...

Enfin, voici le résultat du code :

=

Option Explicit

' Déclarations
Dim Lang_s As String            'lang_r --> Langue destinataire
Dim Lang_r As String            'lang_s --> Langue source
Dim Tempo As String             'Var. temporaire (permutation des textes)
Dim Document0 As HTMLDocument   'Document0 comme document
Dim Element As HTMLDDElement    'Element comme element d'un document
Dim Regedit As Object           'Objet pour manipulation de la base de registre
Dim Volume As Object            'Objet présent sur la feuille (pour redimensionnement)
Dim Last_Focus As String        'Flag la boite Source ou Result pour popup

' =========================================================
' // INITIALISATIONS ET ACTIONS SUR LA FENETRE GRAPHIQUE //
' =========================================================

Private Sub Form_Load()

    ' REDIMENSIONNEMENT DES OBJETS : Initialisation
    ' code celiphane : http://www.vbfrance.com/codes/CODE-REDIMENSIONNER-TOUS-VOS-CONTROLES-PROPORTIONNELLEMENT-REDIMENSIONNEMENT-FENETRE_2621.aspx
    On Error Resume Next
    Me.Tag = CStr(Me.Width) & ":" & CStr(Me.Height)
    For Each Volume In Me
        Volume.Tag = CStr(Volume.X1) & ":" & CStr(Volume.Y1) & ";" & CStr(Volume.X2) & "!" & CStr(Volume.Y2)
        Volume.Tag = CStr(Volume.Width) & ":" & CStr(Volume.Height) & ";" & CStr(Volume.Left) & "!" & CStr(Volume.Top)
    Next Volume

    ' Initialisation des langues par défaut ici : Anglais et Français
    Call Load_And_Save("load")

End Sub

Private Sub Form_Resize()
' REDIMENSIONNEMENT DES OBJETS
' code de celiphane : http://www.vbfrance.com/codes/CODE-REDIMENSIONNER-TOUS-VOS-CONTROLES-PROPORTIONNELLEMENT-REDIMENSIONNEMENT-FENETRE_2621.aspx
    
    ' Pour redimensionner les controles
    On Error Resume Next
    For Each Volume In Me
        'pour les graphiques
        Volume.X1 = Val(Mid(Volume.Tag, 1, InStr(Volume.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        Volume.Y1 = Val(Mid(Volume.Tag, InStr(Volume.Tag, ":") + 1, Len(Volume.Tag) - InStr(Volume.Tag, ":") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        Volume.X2 = Val(Mid(Volume.Tag, InStr(Volume.Tag, ";") + 1, Len(Volume.Tag) - InStr(Volume.Tag, ";") + 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        Volume.Y2 = Val(Mid(Volume.Tag, InStr(Volume.Tag, "!") + 1, Len(Volume.Tag) - InStr(Volume.Tag, "!") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        'pour le reste
        Volume.Width = Val(Mid(Volume.Tag, 1, InStr(Volume.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        Volume.Height = Val(Mid(Volume.Tag, InStr(Volume.Tag, ":") + 1, Len(Volume.Tag) - InStr(Volume.Tag, ":") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        Volume.Left = Val(Mid(Volume.Tag, InStr(Volume.Tag, ";") + 1, Len(Volume.Tag) - InStr(Volume.Tag, ";") + 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
        Volume.Top = Val(Mid(Volume.Tag, InStr(Volume.Tag, "!") + 1, Len(Volume.Tag) - InStr(Volume.Tag, "!") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
    Next Volume

End Sub

Private Sub Form_Unload(Cancel As Integer)
' SAUVEGARDE PARAMETRES LANGUES

    Call Load_And_Save("save")
    
End Sub

Sub Load_And_Save(Choix As String)
' BASE DE REGISTRE : REGLAGES DES LANGUES DE TRADUCTION

    ' Initialisation de l'objet regedit
    Set Regedit = CreateObject("Wscript.shell")

    If Choix = "load" Then
        On Error GoTo Create_Default_Options
        lgs.Text = Regedit.regread("HKCU\Google_Traduction\réglages\Langues_par_defaut\Langue_source")
        lgr.Text = Regedit.regread("HKCU\Google_Traduction\réglages\Langues_par_defaut\Langue_result")
        ' Définition des indices des langues
        Lang_r = Choix_Langue(lgr.Text)
        Lang_s = Choix_Langue(lgs.Text)

        Exit Sub
    Else
        Regedit.regwrite "HKCU\Google_Traduction\réglages\Langues_par_defaut\Langue_source", lgs.Text
        Regedit.regwrite "HKCU\Google_Traduction\réglages\Langues_par_defaut\Langue_result", lgr.Text
        Exit Sub
    End If

Create_Default_Options:
    Regedit.regwrite "HKCU\Google_Traduction\réglages\Langues_par_defaut\Langue_source", "Anglais"
    Regedit.regwrite "HKCU\Google_Traduction\réglages\Langues_par_defaut\Langue_result", "Français"
    
End Sub

' ================================================
' // ACHIFFAGE DES MENUS POPUP SOURCE ET RESULT //
' ================================================

Private Sub Source_MouseDown(ByVal Button As Integer, ByVal ShiftKey As Integer, ByVal xMouse As Long, ByVal yMouse As Long)
' AFFICHAGE MENU POPUP SOURCE

    Source.SetFocus
    Last_Focus = "source"
    Saut.Visible = True
    Open_From.Visible = True
    If Button = 2 Then PopupMenu edit
    
End Sub

Private Sub Result_MouseDown(ByVal Button As Integer, ByVal ShiftKey As Integer, ByVal xMouse As Long, ByVal yMouse As Long)
' AFFICHAGE MENU POPUP RESULT

    Result.SetFocus
    Last_Focus = "result"
    Saut.Visible = False
    Open_From.Visible = False
    If Button = 2 Then PopupMenu edit
    
End Sub

' ==============================================
' // OPTIONS DES MENUS POPUP SOURCE ET RESULT //
' ==============================================

Private Sub Paste_Click()
' COLLER
    SendKeys "^{V}"
End Sub

Private Sub Copy_Click()
' COPIER
    SendKeys "^{C}"
End Sub

Private Sub Select_All_Click()
' SELECTIONNER TOUT
    If Last_Focus = "source" Then
        Source.SetFocus
    Else
        Result.SetFocus
    End If
    SendKeys "^{a}"
End Sub

Private Sub Open_From_Click()
' OUVRIR UN FICHIER TEXTE
    Dim file As New FileSystemObject
    Dim contenu As TextStream           'Pour récupérer le contenu du fichier texte
    Cmd.ShowOpen
    If Cmd.FileName <> "" Then
        Set contenu = file.OpenTextFile(Cmd.FileName, ForReading, False, TristateUseDefault)
        Source.Text = contenu.ReadAll
    End If
End Sub

Private Sub Highest_text_Click()
' TAILLE POLICE : Plus Grande
    If Last_Focus = "source" Then
        Source.Font.Size = 20
    Else
        Result.Font.Size = 20
    End If
End Sub

Private Sub large_text_Click()
' TAILLE POLICE : Grande
    If Last_Focus = "source" Then
        Source.Font.Size = 18
    Else
        Result.Font.Size = 18
    End If
End Sub

Private Sub normal_texte_Click()
' TAILLE POLICE : Moyenne
    If Last_Focus = "source" Then
        Source.Font.Size = 12
    Else
        Result.Font.Size = 12
    End If
End Sub

Private Sub Small_Text_Click()
' TAILLE POLICE : Petite
    If Last_Focus = "source" Then
        Source.Font.Size = 10
    Else
        Result.Font.Size = 10
    End If
End Sub

Private Sub Smaller_Text_Click()
' TAILLE POLICE : Plus Petite
    If Last_Focus = "source" Then
        Source.Font.Size = 8
    Else
        Result.Font.Size = 8
    End If
End Sub

' =======================================
' // ACHIFFAGE DES MENUS POPUP ENVOYER //
' =======================================

Private Sub Save_Traduction_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
' AFFICHAGE MENU POPUP ENVOYER

    PopupMenu Envoi
    
End Sub

' =====================================
' // OPTIONS DES MENUS POPUP ENVOYER //
' =====================================

Private Sub Exporter_Text_Click()
' EXPORTATION DE RESULT

    'Exporter la source et le contenu dans un fichier texte(.txt) ou word 1997-2003(.doc)
    Dim file As New FileSystemObject
    Dim contenu As TextStream
    Cmd.Filter = "(*.txt) Fichier Texte|*.txt|(*.doc) Fichier Word 1997-2003|*.doc|"
    Cmd.ShowSave
    If Cmd.FileName <> "" Then
        Set contenu = file.CreateTextFile(Cmd.FileName, True, False)
        contenu.Write "Texte originale en " & lgs.Text & " :" & vbCrLf _
                    & String$(54, "-") & vbCrLf _
                    & UTF8_Encode(Source) & vbCrLf _
                    & String$(54, "-") & vbCrLf _
                    & "Ce qui suit et traduit avec Google Traduction en " & lgr.Text & " :" & vbCrLf _
                    & String$(54, "-") & vbCrLf _
                    & UTF8_Encode(Result.Text)
    End If
    
End Sub

Private Sub Send_By_Mail_Click()
' ENVOYER PAR MAIL

    On Error Resume Next
    Clipboard.SetText Result
    Shell "explorer.exe mailto:", vbNormalFocus
    
End Sub

' =========================
' // TRAITEMENTS BOUTONS //
' =========================

Private Sub Permuter_Click()
' PERMUTATION DES LANGUES

    Tempo = lgr.Text: lgr.Text = lgs.Text: lgs.Text = Tempo
    
End Sub

Private Sub Traduire_Inverse_Click()
' TRADUCTION INVERSEE
    
    'on change la source avec le resultat
    Source = Result
    'On permute
    Call Permuter_Click
    'Puis en traduit le tout
    Call Traduirebtn_Click
    
End Sub

Private Sub Traduirebtn_Click()
' TRADUCTION GOOGLE

    ' Définition des indices des langues
    Lang_s = Choix_Langue(lgs.Text)
    Lang_r = Choix_Langue(lgr.Text)

    ' Traitement pour la traduction
    If Left$(Source, 7) <> "http://" Then ' Test si la source débute avec une forme de lien "http://"
        If Source <> "" Then
            ' Message d'attente
            Result = "Traduction en cours ... , cela dépend de la vitesse de votre connexion à Internet."
            Result.Enabled = False
            ' Envoi au traducteur Google
            W.navigate "http://translate.google.com/translate_t?text=" & UTF8_Encode(Source.Text) & "&langpair=" & Lang_s & "|" & Lang_r
            ' On active la minuterie
            Temps_Perdu.Enabled = True
        Else
            ' Message d'instruction
            Result = "Insérer un texte à traduire."
        End If
    Else
        ' Ouvrerture du lien par Explorer (traitement indépendant)
        Result = "http://translate.google.fr/translate?u=" & Source.Text & "&sl=" & Lang_s & "&tl=" & Lang_r & "&hl=fr&ie=UTF-8"
        Shell "explorer " & """" & Result & """", vbMaximizedFocus
    End If

End Sub

Private Sub w_StatusTextChange(ByVal Text As String)
' FIN DE LA TRADUCTION DE GOOGLE ?

    'On test si le chargement de la page est terminé
    If Text = "Terminé" Then

        'On inisialise le document du contenu HTML
        Set Document0 = W.document
        'On initialise l'element qu'on veut à savoir le resultat
        Set Element = Document0.getElementById("result_box")

        On Error Resume Next
        Temps_Perdu.Enabled = False
        Result.Text = Element.outerText
        Result.Enabled = True
        Traduire_Inverse.Enabled = True
    End If

End Sub

Private Sub Temps_Perdu_Timer()
' TRAITEMENT ERREUR TRADUCTION
' ARRET en cas de dépassement du delai d'attente

    W.stop 'On stop le webbrowser
    Result.Text = "Délai dépassé , vérifié vos paramétres de connecion à Internet."
    Result.Enabled = True
    Temps_Perdu.Enabled = False

End Sub

=

Bon, j'ose penser que cette version est un peu mieux visuellement, mais ne change rien en réalité. Il fonctionne normalement sans pb, les modifs étant mineurs.

Le redimensionnement reste peut-être à améliorer, même si pas trop mal. Je pense qu'il faudrait garder des points fixes (par exemple , "texte à traduire") et aussi garder des bordures contantes, etc...

Comme Sechaud, je me joins à ses encouragements pour les améliorations que tu as apporté à cette source...

Amicalement,
Us.

Commentaire de us_30 le 18/03/2009 10:49:39

Bonjour,

J'ai trouvé qlq simplifications supplémentaires...

La variables Last_focus n'est pas nécessaire, on peut facilement s'en passer. Il suffit donc de la supprimer des déclarations (Dim ...)
puis les parties de code modifiés donnent ceci :

=

Private Sub Source_MouseDown(ByVal Button As Integer, ByVal ShiftKey As Integer, ByVal xMouse As Long, ByVal yMouse As Long)
' AFFICHAGE MENU POPUP SOURCE

    Source.SetFocus
    Saut.Visible = True
    Open_From.Visible = True
    If Button = 2 Then PopupMenu edit
    
End Sub

Private Sub Result_MouseDown(ByVal Button As Integer, ByVal ShiftKey As Integer, ByVal xMouse As Long, ByVal yMouse As Long)
' AFFICHAGE MENU POPUP RESULT

    Result.SetFocus
    Saut.Visible = False
    Open_From.Visible = False
    If Button = 2 Then PopupMenu edit
    
End Sub

Private Sub Select_All_Click()
' SELECTIONNER TOUT
    SendKeys "^{A}"
End Sub

Private Sub Highest_text_Click()
' TAILLE POLICE : Plus Grande
    main.ActiveControl.Font.Size = 20
End Sub

Private Sub large_text_Click()
' TAILLE POLICE : Grande
    main.ActiveControl.Font.Size = 18
End Sub

Private Sub normal_texte_Click()
' TAILLE POLICE : Moyenne
    main.ActiveControl.Font.Size = 12
End Sub

Private Sub Small_Text_Click()
' TAILLE POLICE : Petite
    main.ActiveControl.Font.Size = 10
End Sub

Private Sub Smaller_Text_Click()
' TAILLE POLICE : Plus Petite
    main.ActiveControl.Font.Size = 8
End Sub

=

En clair, comme on donne le Focus à la boite InkEdit (grace à setfocus), on est sur que les popup s'affichent pour l'objet en-dessous. Puis, grace à main.activecontrol, on peut appliquer font.size sans avoir à retenir au préalable le nom de l'objet...

=

Amicalement,
Us.

Commentaire de us_30 le 19/03/2009 19:16:51

Bonjour,

J'ai un bug dans le timer... je vais réfléchir pour l'améliorer cela.

Sinon pour la redimensionnement des objets, je propose ceci :

=

Private Sub Form_Resize()
' REDIMENSIONNEMENT DES OBJETS

    ' Taille mini (évite erreur de calcul taille <0 sans avoir à faire de test)
    If Me.Width < 6630 Then Me.Width = 6630     'boutons tj visivibles
    If Me.Height < 2300 Then Me.Height = 2300   'boite réduite à 1 ligne
    
    w.Left = -100 ' cache le browser

    With Label1
        .Left = 10
        .Top = 0
        .Height = 17
    End With
    
    With source
        .Left = 10
        .Top = Label1.Height
        .Width = Me.ScaleWidth - 20
        .Height = (Me.ScaleHeight - 2 * Label1.Height - 2 * lgs.Height) / 2
    End With
    
    With result
        .Left = 10
        .Top = Label1.Height + source.Height + 2 * lgs.Height
        .Width = source.Width
        .Height = source.Height
    End With
    
    With Label2
        .Height = 17
        .Left = 10
        .Top = result.Top - .Height
    End With
    
    With lgs
        .Top = result.Top - 1.5 * .Height
        permuter.Top = .Top
        lgr.Top = .Top
        traduirebtn.Top = .Top
        traduire_inverse.Top = .Top
        save_traduction.Top = .Top
    End With

End Sub

=

et la sub LOAD doit être simplifiée, ainsi :

=

Private Sub Form_Load()

    ' COLORIER L'INTERFACE COMME APPLE
    Call Desgin

    ' Initialisation des langues par défaut ici : Anglais et Français
    Call Load_And_Save("load")

End Sub

=

... visuellement, je préfère vraiment plus... (il n'y a plus l'effet élastique).

=

En guise de remarque complémentaire concernant la base de registre, le chemin d'enregistrement devrait être dans "Software", comme tout programme pour éviter de ce perdre... De plus, la sous-rubrique "réglages" ne sert ici à rien. Autant laisser directement Langues_par_défaut. Soit la proposition du code modifié :

=

Sub Load_And_Save(Choix As String)
' BASE DE REGISTRE : REGLAGES DES LANGUES DE TRADUCTION

    ' Initialisation de l'objet regedit
    Set Regedit = CreateObject("Wscript.shell")

    If Choix = "load" Then
        On Error GoTo Create_Default_Options
        lgs.Text = Regedit.regread("HKCU\Software\Google_Traduction\Langues_par_defaut\Langue_source")
        lgr.Text = Regedit.regread("HKCU\Software\Google_Traduction\Langues_par_defaut\Langue_result")
        ' Définition des indices des langues
        Lang_r = Choix_Langue(lgr.Text)
        Lang_s = Choix_Langue(lgs.Text)
        Exit Sub
    Else
        Regedit.regwrite "HKCU\Software\Google_Traduction\Langues_par_defaut\Langue_source", lgs.Text
        Regedit.regwrite "HKCU\Software\Google_Traduction\Langues_par_defaut\Langue_result", lgr.Text
        Exit Sub
    End If

Create_Default_Options:
    Regedit.regwrite "HKCU\Software\Google_Traduction\Langues_par_defaut\Langue_source", "Anglais"
    Regedit.regwrite "HKCU\Software\Google_Traduction\Langues_par_defaut\Langue_result", "Français"
    lgs.Text = "Anglais"
    lgr.Text = "Français"

End Sub

=

Il reste vraiment que le pb du timer... dont une des causes est qu'à initialisation, le status du webbrowser vaut "Terminé"...
Je pense que w_DocumentComplete est peut-être plus adapté.

Amicalement,
Us.

Commentaire de Sechaud le 19/03/2009 21:29:45

Merci US_30 pour tes nombreux apports.
Oui j'ai constaté, moi aussi, qu'il y avait des ennuis avec le Timer.
Alors j'ai fait autrement:
_J'ai abandonné le Timer d'origine pour en créer un autre
avec Enabled à True et Interval à 0
_Je détecte si le serveur renvoie l'URL. En principe cela signifie qu'il est en mesure de la traiter et je détecte
l'occupation du WebBrowser, pour savoir quand il a fini le travail, ce qui correspond à Busy = False
Voici mon code:
Private Sub traduirebtn_Click()
'Choix des langues
      lang_r = Choix_Langue(lgr.Text)
      lang_s = Choix_Langue(lgs.Text)
      
      ProgressBar1.Value = 0
      Text1.Text = "" 'Réponse de WebBrowser1.LocationURL
      result.Text = ""
      
' Traitement pour la traduction
    If Left$(source.Text, 7) <> "http://" Then  ' Test si la source débute avec "http://"
        If source.Text <> "" Then
            ' Message d'attente
            result = "Traduction en cours ... , cela dépend de la vitesse de votre connexion à Internet."
            result.Enabled = False
            ' Envoi au traducteur Google
            WebBrowser1.navigate "http://translate.google.com/translate_t?text=" & UTF8_Encode(source.Text) & "&langpair=" & lang_s & "|" & lang_r
            ' On active la minuterie
            Timer1.Interval = 10
                      Else
            ' Message d'instruction
            result.Text = "Insérer un texte à traduire."
        End If
    Else
        ' Ouverture du lien par Explorer (traitement indépendant)
        result.Text = "http://translate.google.fr/translate?u=" & source.Text & "&sl=" & lang_s & "&tl=" & lang_r & "&hl=fr&ie=UTF-8"
        Shell "explorer " & """" & result.Text & """", vbMaximizedFocus
    End If
End Sub

Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)

      'On initialise le document du contenu HTML
        Set Document0 = WebBrowser1.document
        'On initialise l'élement qu'on veut, à savoir le resultat
        Set Element = Document0.getElementById("result_box")

        On Error Resume Next
        result.Text = Element.outerText
        result.Enabled = True
        traduire_inverse.Enabled = True
      Text1.Text = WebBrowser1.LocationURL
End Sub
Private Sub Timer1_Timer()
    Static t As Integer
         t = t + 100
             ProgressBar1.Value = t
        
    'Le serveur renvoie http:/// et ne renvoie pas l'URL donc on est en échec
     If Left(Text1.Text, 8) = "http:///" Then
        MsgBox "La traduction a échoué. Retentez!"
           Timer1.Interval = 0
           t = 0
           'On stoppe le webbrowser
              WebBrowser1.stop
                  Exit Sub
      End If
      
     'Le serveur renvoie l'URL et le Browser n'est plus occupé: c'est traduit
     If Left(Text1.Text, 8) = "http://t" And WebBrowser1.Busy = False Then
           MsgBox "Traduction réussie"
             Timer1.Interval = 0
              t = 0
         'On stoppe le webbrowser
           WebBrowser1.stop
                 Exit Sub
      End If
      
    
     If t > 9500 Then
         MsgBox "Temps imparti dépassé"
            Timer1.Interval = 0
            t = 0
         'On stoppe le webbrowser
           WebBrowser1.stop
                Exit Sub
     End If
End Sub

On voit que j'ai mis aussi une progress-bar.
Vous enleverez le message qui dit que c'est réussi quand vous aurez testé.
Bonne réussite.
Au passage j'ai aussi mis le WebBrowser sous result et avec un Check.Box mis en graphique je le fais apparaître ou pas ce qui permet de contrôler tout en gagnant de la place.
Voici comment:
Private Sub Check1_Click() 'Montrer ou cacher le WebBrowser
If Check1.Value = 0 Then
     result.Visible = True
End If

If Check1.Value = 1 Then
   WebBrowser1.Visible = True
   result.Visible = False
End If
End Sub

Commentaire de Sechaud le 20/03/2009 10:35:55

Bonjour US_30
J'ai revu mon code et ça marche bien.
J'ai enlevé la ProgressBar et j'ai mis un label qui affiche en s le temps mis pour la traduction.
J'ai utiliseé une autre fonction du WebBrowser:
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
   If Progress = -1 Then
    'On initialise le document du contenu HTML
        Set Document0 = WebBrowser1.document
        'On initialise l'élement qu'on veut, à savoir le resultat
        Set Element = Document0.getElementById("result_box")

        On Error Resume Next
        result.Text = Element.outerText
        result.Enabled = True
        traduire_inverse.Enabled = True
   End If
End Sub

Private Sub Timer1_Timer()
   Text1.Text = WebBrowser1.LocationURL

    Static t As Long
         t = t + 100
     'Afficher le temps de traduction en secondes
     Label5.Caption = Format(t / 10000, "0#.000")
            
    'Le serveur renvoie http:/// et ne renvoie pas l'URL donc on est en échec
     If Left(Text1.Text, 8) = "http:///" Or result.Text = "" Then
        MsgBox "La traduction a échoué. Retentez!"
           Timer1.Interval = 0
           t = 0
           'On stoppe le webbrowser
              WebBrowser1.stop
              result.Text = ""
                  Exit Sub
      End If
      
     'Le serveur renvoie l'URL et le Browser n'est plus occupé: c'est traduit
     If Left(Text1.Text, 8) = "http://t" And WebBrowser1.Busy = False Then
          ' MsgBox "Traduction réussie"
             Timer1.Interval = 0
              t = 0
         'On stoppe le webbrowser
           WebBrowser1.stop
                 Exit Sub
      End If
    
     If t > 100000 Then
         MsgBox "Temps imparti dépassé"
            Timer1.Interval = 0
            t = 0
         'On stoppe le webbrowser
           WebBrowser1.stop
                Exit Sub
     End If
End Sub

US, acceptes-tu d'échanger d'autres idées en mail privé pour ne pas ajouter des commentaires sans fins?
Amicalement
Sechaud

Commentaire de Patrice99 le 21/03/2009 11:35:15

Voici ma version en VB 2008 :
http://patrice.dargenton.free.fr/tmp/GTradDist.zip (31 Ko, exe inclut)

Remarques :
- Pas de composants externes, que des composants standards
- Sauvegarde dans les paramètres utilisateurs au lieu de la BR (+ pratique pour Vista et pour partager un ordi)
- Code + simple pour redimensionnement par ex., ainsi que pour sauver les paramètres
- Compilateur VB 2008 gratuit contrairement à VB6
- Je ne voie pas trop l'utilité de charger un fichier externe, puisque le copié/collé suffit
- Amélioration possible : sauver la liste des langues dans les paramètres ou dans un fichier externe dans le dossier de l'application

Commentaire de Patrice99 le 22/03/2009 09:59:20

Merci, j'ai corrigé quelques petits bugs, par exemple pour la sauvegarde de la position de la fenêtre (ne marchait plus si on iconisait et quittait), et j'ai ajouté un fichier langues externe.

us_30 : est-ce que tu pourrais m'envoyer le fichier .ico qui correspond à ton appli ? je n'ai pas réussi à le récupérer (il fait 178 Ko si je l'importe en VB2008 et il ne fonctionne pas).

Si quelqu'un a une idée pour détecter la langue, ça serait super (mais là c'est vrai qu'à ce niveau, c'est vraiment du pinaillage :-)

Commentaire de Sechaud le 22/03/2009 15:38:59

Patrice 99,
La page de Google Traduction possède une option de reconnaissance de la langue.
vbnino n'a pas installé toutes les langues et options.
Si dans le Module1 tu ajoutes:
Case "Détecter la langue": Choix_Langue = "auto"
et dans dans la Combo lgs "Détecter la langue",
tu verras que l'on peut mettre dans source n'importe quelle langue et la traduction se fait dans la langue de notre choix. Ton idée de stocker les langues dans un fichier ini est à exploiter il me semble. Ainsi, chacun pourrait se faire le fichier ini de son choix, sans avoir à reprogrammer

Commentaire de Patrice99 le 23/03/2009 12:19:19

Comme me l'a indiqué Sechaud, j'ai corrigé ma version VB 2008 : on avait le message : "Impossible de trouver l'assembly de wrappers pour la bibliothèque de types "Microsoft.mshtml", pourtant la dll mshtml est forcément sur tous les ordis Windows ! En fait, comme j'avais compilé en mode strict, la dll interop était requise : Interop.MSHTML.dll, le pb c'est qu'elle fait 8 Mo, donc pour une seule ligne de code je suis repassé en mode liaison tardive et strict off (je ferais un module à part pour pouvoir compiler en strict à nouveau sauf ce module).

Sinon j'ai testé mon appli sous Vista : pas de pb, aucun msg (pas besoin d'être admin).

Je vais bientôt ajouter un historique (RAM seulement) des traductions avec des boutons pour naviguer en arrière et en avant : pratique pour tester plusieurs solutions quand on écrit un mail en anglais par exemple.

Sinon je crois qu'il faudra vérifier la taille limite qu'on peut passer en URL : un gros texte ne passera pas à mon avis.

Commentaire de Patrice99 le 24/03/2009 16:24:32

Super idée de découper un gros texte en petits morceaux, je crois que je vais faire ça.

Commentaire de us_30 le 25/03/2009 00:48:30

Oupsss... encore moi...

Rajouter aussi "Détecter la langue"... en début de liste semble aussi plus intuitif...

Amicalement,
Us.

Commentaire de Patrice99 le 25/03/2009 10:09:07

Bon je me sens un peu obligé d'ajouter la lecture d'un fichier maintenant :-)

En DotNet, il ne faut pas oublier l'encodage 1252 (code page européen) pour lire un fichier avec les accents :
IO.File.ReadAllLines(sCheminFichier, _
    Encoding.GetEncoding(iCodePageWindowsLatin1252))

Au fait pourquoi utiliser du RTF ? Pourquoi vouloir reproduire une mise en forme alors qu'on va traduire du contenu, et non un texte mis en forme ? C'est pour pourvoir utiliser des caractères exotiques ? L'UTF 8 ne sert que pour l'envoi à Google.

Commentaire de Patrice99 le 25/03/2009 16:23:00

Si tu veux tu peux m'envoyer ton code ici patrice.dargenton@free.fr
mais j'aurai pas bcp de tps avant ce week-end.

Commentaire de Patrice99 le 26/03/2009 08:52:40

Ok je regarde ça samedi.

Commentaire de Sechaud le 28/03/2009 14:14:15

Bravo US_30 super boulot, ça fonctionne bien.

Commentaire de Sechaud le 28/03/2009 17:33:02

Effectivement, j'ai moi aussi remarqué qu'à la première utilisation on est parfois en échec, si le texte est long et surtout si on est en automatique. Je traduis d'abord la phrase présente avant de charger un texte.
Dans son commentaire du 21 US_30 proposait une modification du Timing  et proposait de télécharger sa source : http://fordom.free.fr/us_GOOGLE-TRADUCTION.zip (qui restera qlq jours en ligne)...
J'ai testé son code. J'ai pu constater que les échecs au démarrage sont un peu moins fréquents par contre l'affichage
du temps de connexion n'est pas toujours évident. A vous de tester.
Entre parenthèses, pour ceux qui testent la version de Fabrice, et qui comme moi ont constaté les accents curieux si on charge un fichier, j'ai péniblement trouvé une méthode qui les affiche correctement:
Dim ObjetFichier As System.IO.TextReader

        With OpenFileDialog1
            .Filter = "Text files (*.txt)|*.txt|All files (*.*)|*.*"
            .FilterIndex = 1
            ' .InitialDirectory = "C:\"
            .Title = " Ouvrir un fichier "
            .CheckFileExists = False
        End With

        'Charger le fichier
        ObjetFichier = System.IO.File.OpenText(OpenFileDialog1.FileName, System.Text.Encoding.Default)


        'Lire jusqu'à  la fin du fichier.
        lgs.Text = ObjetFichier.ReadToEnd
        ObjetFichier.Close()

Commentaire de us_30 le 28/03/2009 20:52:15

Euh... bon, en fait c'est plutot INKED qui est limité à 65535 caractères... Donc, si le résultat de la traduction dépasse ce nombre on arrive à un bug... qu'alors GOOGLE va bien au-delà... c'est dommage c'est limitation... de plus il faut mettre un control de la longueur pour récupération du résultat...

Est-ce qu'un RichtBox ne serait pas mieux ? pourquoi ce choix de INKED ?...

Amicalement,
Us.

Commentaire de vbnino le 29/03/2009 13:42:24

J'ai choisi INKED par-ce-que RichTextBox n'affiche pas les caractéres unicode

Commentaire de Sechaud le 29/03/2009 15:31:37

Patrice,
J'ai testé ta dernière version. Elle va bien et je te remercie vivement pour le code de chargement et de sauvetage qui permet de garder les accents. Tu es un as du VBnet.
J'ai parcouru un nombre incalculable d'articles sur le Net et je n'ai rien trouvé de fiable. J'avais même trouvé un petit éditeur, bien fait mais  sans la gestion des accents.
Ce que j'avais proposé le 28 marchait, en test avec seulement un TextBox et un Bouton mais implanté dans ton code plus d'accents. Au passage je remercie Renfield qui, sur le Forum m'avait dit qu'il fallait utiliser TextReader

Entre parenthèses j'avais fait une étouderie:
lgs.Text = ObjetFichier.ReadToEnd
au lieu de
tbHaut = ObjetFichier.ReadToEnd
vbnino on est content de te lire.

Commentaire de Patrice99 le 29/03/2009 16:19:37

Ce n'est pas un "devoir" de migrer, c'est un plaisir je dirais :-)
Sauf peut être du point de vue de l' "employabilité" : là c'est pratiquement un devoir oui !
Mais pourquoi choisir si l'on peut conserver les 2 versions en même temps ? laissons les utilisateurs voir ce qui les intéressent le plus.

Commentaire de Patrice99 le 30/03/2009 08:30:34

Je viens de retester la version dotnet depuis un autre poste avec 2000 caractères et j'obtiens :
Google Error : Request-URI Too Large
The requested URL /translate_t... is too large to process.

Ce qui est vrai c'est que sur le site, Google accepte plus de caractères. Pour ce qui est des abus, une prochaine version devrait effectivement permettre de traduire des textes de longueur illimitée, reste à voir si Google détecte et bloque les multiples requêtes successives depuis la même IP.

Commentaire de Patrice99 le 30/03/2009 12:10:29

Si tu n'as pas eu de limite en VB6, cela peut être intéressant ! mais je suis sceptique : est-ce tu effaces bien la page courante du navigateur ? il récupère peut être la précédente traduction complète ! cela me parait peu probable, mais plus probable que passer une URL de 30700 caractères. Pour effacer la page courante il suffit de naviguer sur une page vide : url vide : ""
Conclusion : le bouton traduire du site web arrive à passer 30700 caractères du poste client vers le site de traduction, c'est donc bien possible d'une manière ou d'une autre, reste à voir comment en VB.
Moi j'aimais bien VB6 jusqu'à l'année dernière, où j'ai observé que certains exécutables VB6 ne fonctionnaient plus sur certains postes, avec un message d'erreur n°7 : "Mémoire insuffisante" au lancement de l'appli (ex.: Snap2Pdf), la seule solution étant de réinstaller VB6 sur le poste client !!! du coup, j'ai vraiment perdu confiance dans le produit maintenant.    
Du reste, j'utilise la version gratuite de VB.Net depuis 2005 pour développer des applications professionnelles, ce qui à l'avantage de pouvoir installer le compilo sur un portable pour déboguer chez un client par exemple (pour les cas extrêmes !). Même Microsoft affirme que c'est une bonne idée d'utiliser la version gratuite pour des applis professionnelles !

Commentaire de Sechaud le 03/04/2009 10:22:45

Patrice je pense qu'il serait mieux que tu publies la version
net à part, puisque VB France fait le distingo. Bien sûr,il serait mieux que vbnino soit d'accord, car c'est lui qui a eu l'idée de ce programme mais si tu le cites, il ne devrait pas y avoir de problème. Sur le site on trouve des reprises de codes signalées.

Commentaire de us_30 le 03/04/2009 12:44:36

Bonjour,

Patrice, comme j'avais dit : "j'ai testé directement la limite sur le site GOOGLE", et pas encore par URL... peut-être dimanche...
Indique aussi l'adresse de la version VB.NET...

A+
Amicalement,
Us.

Commentaire de Patrice99 le 05/04/2009 11:55:31

J'ai fait une nouvelle version, on se rapproche de la publication finale, mais il reste encore des petits détails...

Commentaire de us_30 le 12/04/2009 11:12:26

Bonjour,

louche, cette désactivation... ? As-tu demandé aux admis le pourquoi du comment de cette erreur ?...
Je regarderais un peu plus tard ta version en VB.NET, mais cela va être pas facile de poursuivre dans ces conditions...

Amicalement,
Us.

Commentaire de PCPT le 12/04/2009 12:00:41 administrateur CS

Patrice99 -> les mots-clés n'ont pas été saisi.
contacte-moi par MP avec les mots désirés et j'activerai manuellement

Commentaire de Sechaud le 16/04/2009 20:04:02

Patrice, ce que tu proposes ne serait-il pas pour la version vb.net?
En VB6 je n'ai jamais rencontré ça.
J'ai toujours utilisé  WebBrowser1.Silent = True et donc, dans le programme de vbnino en mettant =>
  ' Envoi au traducteur Google
        w.Silent = True
      w.navigate "http://translate.google.com/translate_.....
on n'est plus ennuyé par les messages d'erreur de script.
        Je précise aussi qu'il ne faut pas essayer de mettre silent à TRUE dans la fenêtre des Propriétés car il n'y a pas de mémorisation. Il faut écrire w.Silent = True , dans le Code.
    J'ai fait le même commentaire, dans le dernier programme
de vbnino. Il permet de lire les flux RSS

Commentaire de vbnino le 17/04/2009 12:59:06

Pour la version VB6 ajoutez w.silent=TRUE dans :

Private Sub w_ProgressChange(ByVal Progress As Long,  ByVal ProgressMax As Long)

      If Progress = -1 Then
        
          w.Silent = True

        .....