Traduction Français / Anglais

[Droopy]

Je voudrais créer un programme de traduction qui irait chercher la traduction par ici par exemple : http://www.wordreference.com/fr/index.htm

Si quelqu'un a une piste ou une idée pour automatiser la chose

[ZapMan]

Une recherche sur "traduction automatisée Google" m'a parmis de dénicher ça :

Code : Tout sélectionner

<form>
  <input type="button" value="Traduire avec Google"
onclick="lienGoogle='http://translate.google.com/translate?u=';
lienATraduire = escape(window.location);
langDepart = 'fr';
langArrivee = 'en';
langPair = '&langpair='+langDepart+'%7C'+langArrivee;
window.location=lienGoogle+lienATraduire+langPair;">
</form>

C'est du javascript, bien sûr. Je pense quà partir de là on doit pouvoir faire quelque chose.
Ma source : http://developpeur.journaldunet.com/tut ... ogle.shtml

[Droopy]

Merci pour le code,

mais je sais pas comment utiliser ça

[ZapMan]

Code : Tout sélectionner

ATraduire$ = "shoes"
Langue1$ = "en"
Langue2$ = "fr"

;
URL$ = "http://translate.google.com/translate_t?text="+ATraduire$+"&langpair="+Langue1$+"%7C"+Langue2$+"&ie=UTF-8&oe=UTF-8"
;
ShellExecute_(WindowID(),"open",URL$,"","",#SW_SHOWNORMAL)

Il reste maintenant à lire la page de Google pour en extraire les données. Ca, je ne sais pas faire mais je suis certain que c'est possible.

Vois sur le forum anglais

[Droopy]

Merci Zapman je matte ça

[ZapMan]

Tu as trouvé une piste ??

[Droopy]

Non j'ai pas trouvé de piste car le site de google ne me convient pas pour la traduction

sinon j'ai trouvé un code sur le forum US

Code : Tout sélectionner

Procedure.s OpenUrl(URL.s, OpenType.b,Proxy_IP_y_Puerto$) 
  ;?OpenType [1 = IOTPreconfig | 2 =  IOTDirect | 3 = IOTProxy] 
  ;content.s = OpenURL("http://www.google.de/index.html", 1) 
  
  isLoop.b=1 
  INET_RELOAD.l = $80000000 
  hInet.l=0 
  hURL.l=0 
  Bytes.l=0 
  Buffer.s=Space(2048) 
  RES.s="" 
  
  hInet = InternetOpen_("", OpenType, Proxy_IP_y_Puerto$, "", 0) 
  hURL = InternetOpenUrl_(hInet, URL, #Null, 0, INET_RELOAD, 0) 
  
  Repeat 
    InternetReadFile_(hURL,@Buffer, Len(Buffer), @Bytes) 
    If Bytes = 0 
      isLoop=0 
    Else 
      RES = RES + Left(Buffer, Bytes) 
    EndIf 
  Until isLoop=0 
  
  InternetCloseHandle_(hURL) 
  InternetCloseHandle_(hInet) 
  ProcedureReturn RES 
EndProcedure 


;/SAMPLE 

ProxyUse.b = #True 
IP_and_PORT$ = "127.0.0.1:80" 

sample.s = OpenUrl("http://google.com", ProxyUse, IP_and_PORT$) 

MessageRequester("GOOGLE PAGE",sample)

[ZapMan]

Cool ! Je crois que tu as tous les éléments du puzzle. Reste juste à trouver comment rédiger l'URL pour le site de traduction que tu as choisi.

[Droopy]

Générer l'url de recherche avec :

http://www.wordreference.com/fr/index.htm

c'est pas de la tarte ! j'y arrive pas

[ZapMan]

http://fr.wordreference.com/fr/translat ... enfr=shoes

[Droopy]

Génial

Comment as-tu déterminé la syntaxe de l'URL

[Droopy]

J'ai créé un simple WebGadget pour afficher la traduction car
le résultat est beaucoup plus fourni qu'avec le traducteur de google

Code : Tout sélectionner

; URL de ZapMan

MotATraduire.s=InputRequester("Traducteur Anglais/Français","Saisissez le mot à traduire","")

ExamineDesktops()
x=DesktopWidth(0)
y=DesktopHeight(0)

Langue.s = "enfr" 

Url.s="http://fr.wordreference.com/fr/translation.asp?"+Langue+"="+MotATraduire

OpenWindow(0,0,0,x,y,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") 
CreateGadgetList(WindowID(0))
WebGadget(0,10,10,x-20,y-60,Url)
WaitUntilWindowIsClosed() ; Attendre que l'on ferme la fenètre ( Droopy Lib )

Merci ZapMan

[Droopy]

OK j'ai compris comment tu a déterminé l'URL
en cliquant su les boutons de gauche l'url apparait
il y a juste à rajouter le mot à traduire après le =

Merci encore

[Droopy]

OK j'ai compris comment tu a déterminé l'URL :
En cliquant sur les boutons de gauche l'url apparait,
il y a juste à rajouter le mot à traduire après le =

Merci encore


Voici pour traduire du Français vers l'Anglais

Code : Tout sélectionner

; URL de ZapMan

MotATraduire.s=InputRequester("Traducteur Français/Anglais","Saisissez le mot à traduire","")

ExamineDesktops()
x=DesktopWidth(0)
y=DesktopHeight(0)


Url.s="http://fr.wordreference.com/fr/en/translation.asp?fren="+MotATraduire

OpenWindow(0,0,0,x,y,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"WebGadget") 
CreateGadgetList(WindowID(0))
WebGadget(0,10,10,x-20,y-60,Url)
WaitUntilWindowIsClosed() ; Attendre que l'on ferme la fenètre ( Droopy Lib )