FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 16:57

» Roues dentées
par jean_debord Aujourd'hui à 10:40

» Attention arnaque !
par mindstorm Jeu 19 Juil 2018 - 19:18

» Qui fait quoi ?
par silverman Mer 18 Juil 2018 - 15:21

» ITEM_SELECT N,L pour synedit
par silverman Mer 18 Juil 2018 - 15:20

» Boussole
par jean_debord Mer 18 Juil 2018 - 11:06

» Roue à n faces
par Marc Dim 15 Juil 2018 - 22:16

» Exemple d'une nouvelle version d'un GRID
par Jean Claude Ven 13 Juil 2018 - 10:32

» Une simple question
par Oscaribout Sam 7 Juil 2018 - 23:20

» BUG sur l'objet TAB
par Jack Sam 7 Juil 2018 - 21:12

» Monopoly moderne
par jjn4 Sam 7 Juil 2018 - 15:06

» Récapitulatif ludothèque panoramic jjn4
par jjn4 Ven 6 Juil 2018 - 17:41

» Lignes ondulées
par JL35 Ven 6 Juil 2018 - 17:39

» bug off_activate 0 : sans d'effet
par silverman Ven 6 Juil 2018 - 13:02

» Position des objets d'un conteneur dans FBPano et Panoramic
par Navigateur Ven 6 Juil 2018 - 12:59

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Recherche de traductions de mots (@Klaus).

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

Nombre de messages : 1104
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Sam 24 Juin 2017 - 20:24

Bonsoir.

@Klaus.

Sur le site http://www.bing.com/translator, serait-il possible d'envoyer, par programme, une expression française, et de récupérer sa traduction en allemand dans le memo de droite ?

Exemple: aller bon train

Merci de la suite.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 0:02

2 éléments de réponse:

1. le lien indiqué donne "Page introuvable"...

2. quoi qu'il en soit, le problème est identique à celui que tu m'as soumis précédemment. JE ne vois pas comment je pourrais faire cela de façon automatique, en pilotant le browser par programme, qu'il s'agisse de Internet Explorer, Chrome, Firefox, Opera etc.

Je peux assez facilement envoyer du texte à un programme local, mais pas à un site internet. Idem pour récupérer le contenu des champs.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 1104
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 7:23

Bonjour.

L'adresse du site est la suivante (il fallait ôter la virgule finale de mon post précédent):

http://www.bing.com/translator

J'ai réussi à envoyer le caractère 'c' au memo de gauche du site, à l'aide du code suivant.
x% et y% représentant des coordonnées à l'intérieur de ce mémo.

Code:
hnd%=dll_call2("GetObjectUnderPosition",x%,y%)
res%=dll_call5("SendSingleKey",hnd%,67,0,0,0)

Je pense qu'il doit être possible d'envoyer automatiquement un clic sur le bouton 'Traduire', puis de récupérer le contenu du memo de droite, connaissant son handle.

Merci de ton aide.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Pedro Alvarez

avatar

Nombre de messages : 1104
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 8:22

Bonjour.

@Klaus.

Eh bien, en persévérant, j'ai réussi à obtenir une traduction automatiquement, par un code Panoramic !!


Code:
dim a$, hnd1%, hnd2%, hnd3%, res%, txt$, i%, s$, x%, y%
dim x1%, y1%, x2%, y2%, x3%, y3%

left 0,-800

' Position du memo de gauche.
x1%=800:y1%=500
' Position du bouton 'Traduire'.
x2%=1138:y2%=479
' Position du memo de droite.
x3%=1300:y3%=500

dll_on "kgf.dll"

a$="bonjour"
y%=100

hnd1%=dll_call2("GetObjectUnderPosition",x1%,y1%)
' message str$(hnd1%)
wait y%
res%=dll_call2("AbsoluteMouseLeftClick",x1%,y1%)
wait y%

for i%=1 to len(a$)
    res%=dll_call5("SendSingleKey",hnd1%,asc(mid$(a$,i%,1))-32,0,0,0)
    wait y%
next i%

Donc, maintenant, il reste à récupérer la traduction contenue dans le memo de droite.
Pourrais-tu y jeter un coup d'oeil, stp ?

Et là, ce serait le top du top !!

J'entrevois une solution:

Puisque je réussis à placer automatiquement la souris au début du 1er caractère de la traduction fournie par Bing, il faudrait pouvoir déplacer la souris de gauche à droite, en simulant un appui, et cela de façon auto.

Est-ce possible ?

De cette façon, on pourrait transmettre ensuite un CTR-C pour récupérer cette traduction.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 8:44

Je vais regarder ça...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

Nombre de messages : 11088
Age : 69
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 18:59

J'ai réussi la récupération de ls traduction avec les browsers PaleMoon et Edge. Pas moyen d'y arriver avec FireFox, pour le moment. Il me reste deux points à résoudre:
1. effacement du texte à traduire avant le chargement d'un nouveau texte
2. gérer les caractères accentués

Je vais me permettre une petite remarque:
La traduction par ce site paraît particulièrement simpliste, souvent textuellement mot à mot, donc sans aucun sens réel. Exemple:
Aller bon train
donne
Gehen guten Zug
ce qui est un non-sens.
Le dictionnaire Reverso donne:
gute Fortschritte machen ; gut vorangehen
Ce qui est très bien.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

Nombre de messages : 1104
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 19:34

@Klaus.

Après beaucoup d'efforts, j'ai réussi à récupérer les traductions sur le site de Promt, avec le navigateur Opera.

Voici le code complet:

Code:
dim a$, c$, d$, hnd1%, hnd2%, hnd3%, hnd4%, hnd5%, res%, b$, i%, n%, s$, x%, y%
dim x1%, y1%, x2%, y2%, x3%, y3%, x4%, y4%, x5%, y5%

 
memo 1
combo 2
file_load 2,"verbes_composés_français.txt"
 
combo 3

' Position du memo de gauche.
x1%=700:y1%=450
' Position du bouton 'Traduire'.
x2%=1372:y2%=294
' Position du memo de droite (coin supérieur gauche).
x3%=1048:y3%=431
' Bouton vert OK, sous le memo de droite.
x4%=1048:y4%=496
' Croix bleue d'annulation, sous le memo de gauche.
x5%=693:y5%=490

y%=50

dll_on "kgf.dll"                                                                                                

hnd1%=dll_call2("GetObjectUnderPosition",x1%,y1%)
wait y%
hnd2%=dll_call2("GetObjectUnderPosition",x2%,y2%)
wait y%
hnd3%=dll_call2("GetObjectUnderPosition",x3%,y3%)
wait y%
hnd4%=dll_call2("GetObjectUnderPosition",x4%,y4%)
wait y%
hnd5%=dll_call2("GetObjectUnderPosition",x5%,y5%)
wait y%

for n%=1 to count(2)
    a$=item_read$(2,n%)
    ' message a$
    ' a$="âäàçéèêëïîöôûüù'"
    ' a$="aller de l'avant"
        
    caption 0,str$(n%)+"/"+str$(count(2))+": "+a$
    ' if instr(a$,"er ")+instr(a$,"ir ")+instr(a$,"re ")>0
       lire_traduction()
    ' end_if
     ' exit_for
next n%
message "fin"
terminate

sub lire_traduction()
    res%=dll_call2("AbsoluteMouseLeftClick",x5%,y5%)
    wait y%
    res%=dll_call2("AbsoluteMouseLeftClick",x1%,y1%)
    wait y%

    ' res%=dll_call2("SendStringAsText",hnd1%,adr(a$))
    for i%=1 to len(a$)
        y%=asc(mid$(a$,i%,1))
        if y%>96 and y%<123 then y%=y%-32
        res%=dll_call5("SendSingleKey",hnd1%,y%,0,0,0)
    next i%
    
    res%=dll_call2("AbsoluteMouseLeftClick",x2%,y2%)
    wait y%
    res%=dll_call2("AbsoluteMouseLeftClick",x3%,y3%)
    wait y%
                
    ' Bouton vert OK.    
    res%=dll_call2("AbsoluteMouseLeftClick",x4%,y4%)
    wait y%
  
    res%=dll_call2("AbsoluteMouseRightClick",x3%,y3%)
    wait 1000
    ' CTRL A
    res%=dll_call5("SendSingleKey",hnd3%,65,1,0,0)
    wait y%
    ' CTRL C
    res%=dll_call5("SendSingleKey",hnd3%,67,1,0,0)
    wait y%

    b$=clipboard_string_paste$

    file_open_write 99,"c:\a\test.txt"
    file_writeln 99,b$
    file_close 99

    file_load 1,"c:\a\test.txt"
' message item_read$(1,26)+" = "+item_read$(1,29)
    item_add 3,item_read$(1,26)+" = "+item_read$(1,29)
    file_save 3,"c:\a\traductions.txt"  
end_sub

Afin de supprimer le champ contenant le mot à traduire, et avant toute nouvelle traduction, je récupère le handle de la croix bleue, située sous le memo de gauche, et je lui transmets un clic de souris.

Il reste à régler le problème des caractères accentués.


Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Recherche de traductions de mots (@Klaus).   

Revenir en haut Aller en bas
 
Recherche de traductions de mots (@Klaus).
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [Résolu] Recherche d'un BON aspirateur de sites + formulaire informat
» recherche logiciel pour créer un site
» Liste des mots-clé de Panoramic avec leur classification
» [résolu][Laguna 1 V6 24S boite manuelle] Recherche
» (résolu)recherches effectuées dans la barre déroulante"recherche" de Neuf

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: A l'aide!-
Sauter vers: