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
» Gestionnaire de Projets Panoramic
par Minibug Aujourd'hui à 2:10

» Mah-Jong européen new-look
par jjn4 Hier à 16:35

» Button_picture
par pascal10000 Hier à 11:41

» Pourquoi le compilateur stagne
par Minibug Hier à 11:09

» 4 (en analyse): SYNEDIT_TARGET_IS_OBJECT devient inactif
par Jack Hier à 10:09

» 3 (en analyse): Mauvaise interprétation du string "THEN"
par Jack Hier à 10:03

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Marc Hier à 10:00

» KGF_dll - nouvelles versions
par pascal10000 Mer 13 Déc 2017 - 17:27

» track_bar circulaire
par Klaus Mar 12 Déc 2017 - 13:54

» API Windows
par Klaus Mar 12 Déc 2017 - 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Recherche de traductions de mots (@Klaus).

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

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

MessageSujet: Recherche de traductions de mots (@Klaus).   Sam 24 Juin 2017 - 21: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 : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 1: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 : 882
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 8: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 : 882
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 9: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 : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 9: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 : 10259
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 19: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 : 882
Date d'inscription : 19/01/2014

MessageSujet: Recherche de traductions de mots (@Klaus).   Dim 25 Juin 2017 - 20: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).
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» recherche d'une police de caractère
» [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

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: