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
» Reprise du développement et de la documentation
par Fredisland Aujourd'hui à 12:53

» Une copie de Panoramic Editeur
par Jean Claude Hier à 21:03

» Objet 3D_PLANE, réalisation d'un dé en 3D
par Marc Hier à 0:33

» Cacher la barre des tâches
par Klaus Lun 21 Mai 2018 - 21:27

» Une "base de connaissance" - pour jouer ou plus si affinité
par Minibug Lun 21 Mai 2018 - 10:29

» quel est ce comportement de Panoramic_editor
par Oscaribout Lun 21 Mai 2018 - 0:22

» Des FORM(s) Colorés
par Jean Claude Dim 20 Mai 2018 - 20:58

» Recherches dans un fichier texte
par JL35 Dim 20 Mai 2018 - 20:18

» Problème d'affichage des pages du forum (Résolu)
par Jean Claude Dim 20 Mai 2018 - 20:00

» Créer une application *.exe
par Yannick Ven 18 Mai 2018 - 20:01

» [RÉSOLU] Priorité affichage des objets : comment la définir?
par papydall Ven 18 Mai 2018 - 18:22

» Aucune différence entre ON_CLICK et ON_DOUBLE_CLICK
par Jean Claude Jeu 17 Mai 2018 - 8:37

» [Résolu] Récuperer les fonctions systeme de Panoramic
par Minibug Mar 15 Mai 2018 - 23:21

» Est-ce qu'un fichier est inclus dans l'application ?
par Yannick Mar 15 Mai 2018 - 12:04

» Création d'une application avec Panoramic_Editor
par Klaus Mar 15 Mai 2018 - 0:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mai 2018
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Problème avec Deepl

Aller en bas 
AuteurMessage
Pedro Alvarez

avatar

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

MessageSujet: Problème avec Deepl   Lun 1 Jan 2018 - 19:58

Bonsoir

Avant tout, mes meilleurs voeux à tous les panoramiciens.

Maintenant, je rentre dans le vif du sujet.

Le problème qui suit s'adresse plus particulièrement à  Klaus.

Code:
' Version du 1 jan 2018.
' La fenêtre du browser doit être agrandie.
' 14 min pour 100 phrases.

label go, traduire, envoi

dim a$, debut$, res%, url$, WB%, name$, path$, pause1%, pause2%
dim Input_x%, Input_y%, Output_x%, Output_y%
dim Txt$, hnd%, i%, k%, car$

debut$=time$

Input_x%=200  : Input_y%=300
Output_x%=800 : Output_y%=300

pause1%=750:pause2%=1000

url$="https://www.deepl.com/translator"

full_space 0
panel 10 : full_space 10 : height 10,height(10) - 30 : top 10,30

dll_on "kgf"
 
caption 0,"https://www.deepl.com/translator"
name$="IExplore"
path$="C:\Program Files\Internet Explorer\iexplore.exe"
res%=dll_call2("SetBrowser",adr(name$),adr(path$))
res%=dll_call3("LoadBrowserToWindow",handle(10),adr(url$),0)
button 1 : top 1,0 : left 1,100 : width 1,400 : on_click 1,go : font_bold 1
caption 1,"Valider lorsque le browser sera prêt..."

button 4 : top 4,0 : left 4,930 : caption 4,"Traduire" : on_click 4,traduire  
hide 4

memo 5:left 5,-200

dlist 6
file_load 6,"phrases.txt"

end

go:
  hide 1
  show 4
  hnd%=dll_call2("GetObjectUnderPosition",Input_x%,Input_y%)
  res%=dll_call2("AbsoluteMouseLeftClick",Input_x%,Input_y%)
return
  
traduire:
  for k%=1 to count(6)
      caption 0,"Phrase n° "+str$(k%)+"/"+str$(count(6))

      txt$=item_read$(6,k%)
      res%=dll_call2("AbsoluteMouseLeftClick",Input_x%,Input_y%)
      pause pause1%
      car$="A"
      res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,0,0)
      pause pause1%
      car$=chr$(48)    : ' delete
      res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),8,0,0)
      pause pause2%

      gosub envoi
  next k%
  message "Début: "+debut$+" : "+time$
  terminate
return
  
envoi:
  for i%=1 to len(txt$)
      car$=mid$(txt$,i%,1)
      res%=dll_call2("SendSingleChar",hnd%,adr(car$))
      pause 10
  next i%
  res%=dll_call2("AbsoluteMouseLeftClick",Output_x%,Output_y%)
  pause pause1%
  car$="A"
  res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,0,0)
  pause pause1%
  car$="C"
  res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,0,0)
  pause pause1%
  txt$=clipboard_string_paste$

  ' clear 5
  while 0=0
        i%=instr(txt$,chr$(13))
        a$=trim$(left$(txt$,i%-1))
        if left$(a$,8)="Traduire" then exit_while
        txt$=right_pos$(txt$,i%+1)
  end_while
  
  while 0=0
        i%=instr(txt$,chr$(13))
        if i%=0 then exit_while
        a$=trim$(left$(txt$,i%-1))
        if instr(a$,"DeepL")>0 then exit_while
        if a$<>"" and a$<>"×" and left$(a$,7)<>"Cliquez" and left$(a$,2)<>"‘‘" and left$(a$,14)<>"Lire l'article" and instr(a$,"/5000")=0 then item_add 5,a$
        txt$=right_pos$(txt$,i%+1)
  end_while
  file_save 5,"traductions.txt"
return

WB%=dll_call1("WB_Create",handle(0))
res%=dll_call5("WB_Locate",WB%,0,40,width_client(0),height_client(0))
res%=dll_call2("WB_Url",WB%,adr(url$))

end

Fichier 'phrases.txt'.

Code:
Cette nuit de lundi à mardi 26 décembre va être agitée.#
Deux perturbations successives sont attendues en ce début de semaine dans une large moitié nord de la France.#
Météo France a placé une soixantaine de départements en vigilance jaune, et ce jusqu'à 16h mardi 26 décembre.#
L'organisme recommande aux personnes pratiquant des activités sensible au risque météorologique", d'être attentives.#
Des pluies sont attendues tôt dans la matinée des Hauts-de-France au Sud-ouest.#
Elles se déplaceront ensuite sur toute la partie est du pays.#
Des vents forts accompagneront ces perturbations, dans le nord de la France.#
Les rafales devraient atteindre 80 à 90 km/h dans les terres, et jusqu'à 100 km/h localement, en fin de nuit et début de matinée.#
Une seconde perturbation est attendue en fin de matinée dans le nord-ouest de l'Hexagone avec des pluies qui toucheront l'ensemble de la Bretagne.#
Le vent de secteur sud s'intensifiera une nouvelle fois sur l'ouest de la France et atteindra 80 à 90 km/h dans les terres et jusqu'à 100 km/h sur le littoral.#
Plus qu'un effet de mode, le rétro a connu un retour de flamme remarqué dans le monde des nouvelles technologies ces derniers mois.#
La téléphonie mobile a vu par exemple le mythique 3310 de Nokia, dont la marque est aujourd'hui exploitée par la startup finlandaise HMD Global, s'offrir une seconde jeunesse au Mobile World Congress de Barcelone en février où il a éclipsé tous les smartphones présentés dans les allées du salon espagnol.#
Écoulé à plus de 120 millions d'exemplaires à travers le monde dans les années 2000, le téléphone portable générationnel est à nouveau commercialisé dans les grandes enseignes contre une soixantaine d'euros dans une version au design modernisé qui fait rapidement son âge une fois passé l'effet vintage : celui d'un téléphone inadapté au surf Internet seulement conseillé pour une détox numérique.#
Aussi emblématique de sa génération que le 3310, le Tamagotchi est l'autre grand revenant de l'année écoulée.#
Vingt ans après sa sortie fin 1996, l'animal de compagnie virtuel en forme d’œuf de bandai a de nouveau investi les rayons des magasins américains et européens pour essayer de renouer avec la fibre nostalgique des trentenaires dont il exigeait une affection et une attention permanente à la fin des années 1990.#
Autre gloire passée, la marque Kodak s'est relevée de sa faillite de 2012 pour tenter une incursion sous licence dans le monde des smartphones au début de l'année avec l'Ektra, un photophone Android au design proche des téléphones d'autrefois vendu 499 euros.#
Un premier essai loin d'être transformé en raison de performances décevantes en photographie face aux meilleurs photophones du marché.#
Tombée dans l'oubli avec l'avènement de la photographie numérique, Polaroid, la marque pionnière du cliché instantanée, s'est offert un revival en septembre pour ses 80 ans avec le One Step 2, le digne héritier de son appareil emblématique des années 1970 dont il reprend les codes esthétiques et le prix important de chaque prise de vue qui ne laisse toujours pas le droit à l'erreur.#
Les jeux vidéo sont particulièrement concernés par cette vague nostalgeek".#
Près d'un an après le succès de Pokémon Go et la réédition de la NES, Nintendo a sorti fin septembre une version miniature de la reine des consoles, la Super Nintendo.#
Apparue en France en 1992, la deuxième console de salon de l'histoire de la firme japonaise est de retour dans une version pour écrans HD avec un design fidèle à l'original et une vingtaine de titres comme Super Mario Kart, Street Fighter 2, Castlevania ou Yoshi's Island portant haut la fibre nostalgique.#
Seuls la fente à cartouche et le bouton eject - bien présents mais factices - n'ont pas résisté au portage.#
Cela n'empêche pas la console culte de s'arracher en magasin, en attendant un possible recyclage de la Nintendo 64 et de la Game Boy.#
Le succès de Nintendo a donné des idées à d'autres constructeurs puisque Atari ou Sega pourraient faire de même l'an prochain.#
Parallèlement au succès de la musique en flux, le vinyle connaît un retour en grâce à travers le monde depuis plusieurs années.#
En France et au Royaume-Uni, les ventes de disques 33 et 45 tours ont renoué avec des niveaux jamais atteints depuis les années 1990.#
Dans le sillage de Panasonic, qui a ressuscité la marque Technics et la mythique platine SL-1200, le plus emblématique de l'industrie du Djing dans les années 1980, de nombreux fabricants profitent de l'engouement pour la sonorité chaleureuse de microsillon.#
Spécialiste de l'acoustique, le français Elipson a présenté cet été une édition en fibre de carbone de sa platine vinyle Omega 100, à la croisée des mondes analogique et numérique.#
Nous sommes en contact avec au moins dix pays dont certains en Europe en vue du transfert de leur ambassade de Tel-Aviv à Jérusalem, a affirmé la vice-ministre israélienne des Affaires étrangères, Tzipi Hotovely, à la radio publique lundi 25 décembre.#
Elle a fait ces déclarations au lendemain de l'annonce du transfert par le Guatemala de son ambassade à Jérusalem.#
La vice-ministre n'a pas donné les noms des pays susceptibles de suivre cet exemple.#
La déclaration de Trump va enclencher un courant dont nous n'avons pour le moment vu que les prémisses, s'est-elle bornée à affirmer.#
La radio publique citant des sources diplomatiques israéliennes a évoqué le Honduras, les Philippines, la Roumanie et le Soudan du Sud parmi les pays qui pourraient prendre une telle initiative.#
Mais, selon la radio, il n'est pour le moment question que de contacts et non de négociations concrètes pour le transfert dans un proche avenir des ambassades de ces pays à Jérusalem.#
Les Palestiniens ont qualifié lundi d'acte honteux et hostile la décision du Guatemala de transférer son ambassade à Jérusalem.#
Les Palestiniens veulent faire de Jérusalem-Est la capitale de l'Etat auquel ils aspirent.#
Israël occupe depuis 1967 cette partie de la ville sainte et l'a également annexée, une annexion que la communauté internationale n'a jamais reconnue.#
Un sapin de Noël et des peluches, installés par la famille de Maëlys à Pont-de-Beauvoisin (Isère), où la fillette a disparu fin août, ont été retrouvés brûlés.#
Le feu est parti dans la nuit du 24 au 25 décembre.#
Dans un premier temps, la gendarmerie a estimé que l'incendie était d'origine volontaire.#
Lundi 25 décembre dans la soirée, les militaires ont changé leur fusil d'épaule.#
La piste accidentelle serait désormais privilégiée.#
Un sapin orné de décorations et plusieurs peluches avaient été installés en hommage à Maëlys par sa tante et des proches, devant la salle des fêtes de Pont-de-Beauvoisin, là-même où la petite fille âgé de 9 ans à peine a disparu le 27 août lors d'une soirée de mariage.#
L'enfant n'a toujours pas été retrouvée.#
C'est un jeu qui a viré au drame.#
La scène s'est déroulée ce lundi 25 décembre au matin au milieu des chalets du marché de Noël installés dans le centre-ville de Montpellier (Hérault).#
Vers 8h30, un vigile du marché de Noël de 27 ans a été écrasé par la voiture de son collègue après un défi qui aurait mal tourné.#
Selon France Bleu Hérault, d’après des témoins, les deux hommes s’amusaient, l’un accroché au capot de la voiture, l’autre accélérant et freinant pour le décrocher", expliquent les pompiers.#
Les deux agents de sécurité venaient d'arriver pour prendre leur service sur le marché de Noël.#
Par jeu ou pour se lancer un défi, l'un des vigiles est monté sur le capot alors que l'autre conduisait.#
L’homme qui était sur le capot a fini par chuter alors que le conducteur freinait et a fini par être heurté puis écrasé par le véhicule.#
Il est décédé malgré les tentatives de réanimation des secours.#
Il est décédé sur place à l'âge de 27 ans.#
Le conducteur a été placé en garde à vue.#
L'homme d'une vingtaine d'années est très choqué.#
Le test d'alcoolémie effectué s'est révélé négatif.#
Une enquête a été ouverte pour homicide involontaire.#
Des douze missions en compétition dans programme New Frontiers de la Nasa pour un financement et un lancement en 2025, il n'en reste que deux : une nouvelle visite à la comète Tchouri (celle de Rosetta), avec retour d'échantillons, et une exploration de Titan.#
Bientôt, il n'y aura qu'un gagnant.#
Au printemps 2019, la Nasa va devoir choisir entre un retour sur Titan ou sur la comète Churyumov-Gerasimenko.#
Il y a quelques jours, l'Agence spatiale américaine a en effet dévoilé les noms des deux finalistes de son programme d'exploration planétaire New Frontiers.#
Une seule de ces deux missions sera retenue et financée à hauteur de 850 millions de dollars en vue d'un lancement à l'horizon 2025.#
La mission Caesar vise à rapporter sur Terre un échantillon de la comète Churyumov-Gerasimenko, afin de mieux comprendre l'origine de la formation de la Terre et de ses océans, ainsi que l'apparition de la vie.#
Cette comète n'est pas inconnue.#
Elle a été étudiée avec le succès que l'on sait par la sonde Rosetta de l'ESA qui y a posé le module Philae lors d'un impact contrôlé et inédit.#
Si la Nasa décide de ne pas choisir cette mission, il est très probable que l'Agence spatiale européenne ou la Chine décident de financer une mission similaire (M5 pour l'ESA).#
Moment festif, le réveillon du Nouvel An est chaque année le théâtre de rixes plus ou moins violentes.#
De plus, cette année encore, la Saint-Sylvestre se déroulera dans un contexte de haute menace terroriste.#
Cette année, quelque 140000 représentants des forces de l'ordre et sauveteurs seront déployés pour assurer la sécurité des Français et des touristes qui fêteront la nouvelle année sur le territoire.#
Dans le détail cela fait 56000 policiers, 36000 gendarmes, dont 3000 réservistes, explique Frédéric de Lanouvelle,  porte-parole du ministère de l'Intérieur, invité de RTL ce samedi 30 décembre, à la veille du réveillon.#
Il y a évidemment les 7000 militaires de l'opération Sentinelle et puis, il ne faut pas les oublier, il y a près de 40000 sapeurs-pompiers, sapeurs-sauveteurs-démineurs, qui sont de garde ce soir-là ", poursuit-il.#
Le ministre de l'Intérieur Gérard Collomb veut concilier la sécurité et le bon déroulement de ce grand moment de fête.#
"Il est à mon avis plus facile de faire la fête lorsque l'on a le sentiment d'être en sécurité, défend Frédéric de Lanouvelle.#
Les barrières sont là pour faire en sorte que les Français et les touristes qui fêteront ce réveillon se sentent en sécurité.#
Il y aura des barrières, une vraie présence policière en uniforme, une présence moins visible de policiers en civil, et 70 unités mobiles.#
Cela est à mon avis nécessaire parce que la menace terroriste est toujours importante, et il y aussi le risque de violences urbaines en cette nuit de réveillon".#
C'est le temps que ce garçon de huit ans serait resté enfermé ce garçon de huit ans près de son beau-père, décédé.#
L'enfant aurait lui-même donné l'alerte, vendredi 29 décembre.#
Il serait entré dans un café de Goudargues, dans le Gard, et aurait déclaré avoir été bloqué dans l'appartement de son beau-père, retrouvé mort, rapporte Midi Libre.#
"Ce vendredi, un jeune garçon âgé de 8 ans a averti des habitants de Goudargues qui étaient dans un café, qu'il avait été enfermé, trois jours durant, par un proche", a expliqué le vice-procureur de la République Patrick Bottero.#
"L'enfant a dit avoir été enfermé à clef dans un appartement de la commune", ajoute-t-il, avant d'ajouter que "l'homme était son beau-père qui le gardait".#
Une fois l'alerte donnée par l'enfant, les gendarmes seraient allé sur place, découvrant le cadavre de l'homme.#
Midi Libre ajoute que, selon les premières indications, le corps gisait sur le sol depuis trois jours.#
"Une procédure est ouverte pour rechercher les causes de la mort.#
Mais rien n'atteste d'une origine criminelle", a détaillé le vice-procureur de permanence Patrick Bottero.#
La Saint-Sylvestre s'annonce venteuse.#
Une tempête, baptisée Carmen, est attendue sur une large partie de la France, dimanche 31 décembre et lundi 1er janvier.#
"La tempête n'est pas encore confirmée" , précise Jérôme Lecou, prévisionniste chez Météo-France, d'après les informations du Figaro.#
Et d'ajouter : "Il faut rester prudent sur sa trajectoire éventuelle.#
Elle pourrait toucher l'Irlande, l'Espagne ou la France en premier".#
Un phénomène qui, selon le prévisionniste, n'aurait rien d'anormal.#
"En termes de vents, si elle se confirme, il s'agirait d'une tempête classique de décembre ou janvier avec des vents de 90 à 100 km/h à l'intérieur des terres", notamment sur le centre-ouest du pays.#
Des précipitations devront accompagner ces rafales de vent, précise Le Figaro.#
Les rafales devraient atteindre 120 à 140 km/h sur les côtes d'Iroise et de l'Atlantique et 90 à 110 km/h en Manche", précise le site de Météo Bretagne.#
Carmen serait le résultat d'"une dépression installée sur les îles britanniques et un anticyclone positionné sur la péninsule ibérique qui créent un différentiel de pression à l'origine de forts vents de secteur ouest", renseigne Sébastien Decaux, prévisionniste chez Météo Bretagne.#
Un enfant est à l'origine du pire incendie meurtrier à New York depuis un quart de siècle.#
Le bambin, âgé de trois ans et demi, jouait avec une cuisinière à gaz, qui a causé jeudi 28 décembre l'incendie qui a coûté la vie à douze personnes, dont quatre enfants.#
Le feu a pris jeudi vers 19 heures (00h00 GMT) dans une cuisine au rez-de-chaussée d'un immeuble en briques, comme il y en a des milliers à New York.#
"Il a été déclenché par un enfant de trois ans et demi qui jouait avec la gazinière.#
L'incendie a pris et la maman n'en avait pas conscience.#
Elle a été alertée par les cris" du petit, qui avait déjà joué avec les brûleurs par le passé, a expliqué le chef des pompiers de la ville, Daniel Nigro.#
"Elle est sortie de l'appartement avec ses enfants de trois et deux ans et a laissé la porte ouverte", a-t-il poursuivi, geste qui a permis aux flammes de se propager en quelques minutes.#

A partir de la ligne 71 ou autre, le memo de gauche du site deepl n'est pas effacé systématiquement !
Je ne comprends pas pourquoi.

Et pourquoi envoies-tu la valeur 8 à la fonction 'SendSingleCharAsVKCode' ?

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

avatar

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

MessageSujet: Re: Problème avec Deepl   Lun 1 Jan 2018 - 20:58

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

avatar

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

MessageSujet: Problème avec Deepl.   Dim 14 Jan 2018 - 8:18

Bonjour à tous.

@Klaus.

Je sais que tu es très pris en ce moment avec les nouveaux objets que tu viens de créer.

Mais as-tu un peu de temps pour regarder mon problème ?

Je bute dessus depuis ps mal de temps, et tous mes essais se soldent par un échec, même en augmentant la durée des pauses.

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

avatar

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

MessageSujet: Re: Problème avec Deepl   Dim 14 Jan 2018 - 8:42

D'accord. Je suis un peu plus libre maintenant, et je vais mettre cela en haut de la pile. Désolé pour le délais.

EDIT

Paux-tu poster un exemple du contenu de phrases.txt ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Problème avec Deepl.   Dim 14 Jan 2018 - 9:13

Bonjour.

Le fichier complet 'phrases.txt' est accessible ici:

https://mon-partage.fr/f/XoziOIwR/

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Problème avec Deepl   Dim 14 Jan 2018 - 9:15

Merci. J'ai chargé.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Problème avec Deepl   Dim 14 Jan 2018 - 9:49

Un premier test rapide met en évidence la nécessité de rajouter une ligne:
Code:
 ' clear 5
  while 0=0
        i%=instr(txt$,chr$(13))
        if i%=0 then exit_while        : ' <======= Klaus
        a$=trim$(left$(txt$,i%-1))
        if left$(a$,8)="Traduire" then exit_while
        txt$=right_pos$(txt$,i%+1)
  end_while
Sinon, il y a un plantage dès le début.

Ensuite, le programme est allé jusqu'au bout, sans anomalie:


On constate que l'effacement de la partie gauche n'a pas marché pour quelques phrases, comme l'avant-dernière qui est cumulée avec la dernière. A suivre...

Par contre, le résultat collecté est "pauvre":
Citation :
Traduire français (langue identifiée)
Elle a été étudiée avec le succès que l'on sait par la sonde Rosetta de l'ESA qui y a posé le module Philae lors d'un impact contrôlé et inédit.#
Traduire en anglais
It was studied with the known success of the ESA's Rosetta probe, which placed the Philae module on it during a controlled and unprecedented impact. #
This comet is not unknown. #
Traduire français (langue identifiée)
Elle a été étudiée avec le succès que l'on sait par la sonde Rosetta de l'ESA qui y a posé le module Philae lors d'un impact contrôlé et inédit.#
Traduire en anglais
It was studied with the known success of the ESA's Rosetta probe, which placed the Philae module on it during a controlled and unprecedented impact. #
This comet is not unknown. #
Je me demande si le ciblage pour capter la traduction est bien positionné. Je vais approfondir cela.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Klaus

avatar

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

MessageSujet: Re: Problème avec Deepl   Dim 14 Jan 2018 - 11:44

Bon, j'ai une version qu a l'ai de marcher. Il y a eu plusieurs problèmes, et je les ai commentés dans le source. Voici une version qui semble marcher, chez moi:
Code:
' test_deepl.bas

' Version du 1 jan 2018.
' La fenêtre du browser doit être agrandie.
' 14 min pour 100 phrases.

label go, traduire, envoi

dim a$, debut$, res%, url$, WB%, name$, path$, pause1%, pause2%
dim Input_x%, Input_y%, Output_x%, Output_y%
dim Txt$, hnd%, i%, k%, car$

debut$=time$

Input_x%=200  : Input_y%=300
Output_x%=800 : Output_y%=300

pause1%=750:pause2%=1000

url$="https://www.deepl.com/translator"

full_space 0
panel 10 : full_space 10 : height 10,height(10) - 30 : top 10,30

dll_on "kgf"
 
caption 0,"https://www.deepl.com/translator"
name$="IExplore"
path$="C:\Program Files\Internet Explorer\iexplore.exe"
res%=dll_call2("SetBrowser",adr(name$),adr(path$))
res%=dll_call3("LoadBrowserToWindow",handle(10),adr(url$),0)
button 1 : top 1,0 : left 1,100 : width 1,400 : on_click 1,go : font_bold 1
caption 1,"Valider lorsque le browser sera prêt..."

button 4 : top 4,0 : left 4,930 : caption 4,"Traduire" : on_click 4,traduire 
hide 4

memo 5:left 5,-200
bar_both 5 : ' <===== Klaus

dlist 6
file_load 6,"phrases.txt"

end

go:
  hide 1
  show 4
  hnd%=dll_call2("GetObjectUnderPosition",Input_x%,Input_y%)
  res%=dll_call2("AbsoluteMouseLeftClick",Input_x%,Input_y%)
return
 
traduire:
  for k%=1 to count(6)
      caption 0,"Phrase n° "+str$(k%)+"/"+str$(count(6))

      txt$=item_read$(6,k%)
      res%=dll_call2("AbsoluteMouseLeftClick",Input_x%,Input_y%)
      pause pause1%
      car$="A"
      res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,0,0)
      pause pause1%
      car$=chr$(8)    : ' delete                                    : ' <=== Klaus
      res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),0,0,0)  : ' <=== Klaus      pause pause2%

      gosub envoi
  next k%
  message "Début: "+debut$+" : "+time$
  terminate
return
 
envoi:
  for i%=1 to len(txt$)
      car$=mid$(txt$,i%,1)
      res%=dll_call2("SendSingleChar",hnd%,adr(car$))
      pause 10
  next i%
  pause pause1%
  res%=dll_call2("AbsoluteMouseLeftClick",Output_x%,Output_y%)
  pause pause1%*2                : ' <======= Klaus le délai ici est impératif !
  car$="A"
  res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,0,0)
  pause pause1%
  car$="C"
  res%=dll_call5("SendSingleCharAsVKCode",hnd%,adr(car$),1,0,0)
  pause pause1%
  txt$=clipboard_string_paste$

  ' clear 5
  while 0=0
        i%=instr(txt$,chr$(13))
        if i%=0 then exit_while        : ' <======= Klaus
        a$=trim$(left$(txt$,i%-1))
        if left$(a$,8)="Traduire" then exit_while
        txt$=right_pos$(txt$,i%+1)
  end_while
 
if 1=0              : ' <========= Klaus  Je ne comprends pas ceci, Rien n'est enregistré !
  while 0=0
        i%=instr(txt$,chr$(13))
        if i%=0 then exit_while
        a$=trim$(left$(txt$,i%-1))
        if instr(a$,"DeepL")>0 then exit_while
        if a$<>"" and a$<>"×" and left$(a$,7)<>"Cliquez" and left$(a$,2)<>"‘‘" and left$(a$,14)<>"Lire l'article" and instr(a$,"/5000")=0 then item_add 5,a$
        txt$=right_pos$(txt$,i%+1)
  end_while
else                : ' <========= Klaus
  item_add 5,txt$  : ' <========= Klaus  enregistrer ici ce qu'on a reçu !
end_if              : ' <========= Klaus
  file_save 5,"traductions.txt"
return

WB%=dll_call1("WB_Create",handle(0))
res%=dll_call5("WB_Locate",WB%,0,40,width_client(0),height_client(0))
res%=dll_call2("WB_Url",WB%,adr(url$))

end
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Pedro Alvarez

avatar

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

MessageSujet: Problème avec Deepl.   Dim 14 Jan 2018 - 20:44

Bonsoir.

@Klaus.

Je suis heureux que le code fonctionne chez toi, mais ce n'est pas mon cas malheureusement.
Je vais tenter d'approfondir le problème, et te tiens au courant.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

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

MessageSujet: Re: Problème avec Deepl   Dim 14 Jan 2018 - 22:34

Dans mon WebDav, dossier DLLs, j'ai placé le fichier traductions.txt tel qu'il est issu du programme.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Problème avec Deepl   

Revenir en haut Aller en bas
 
Problème avec Deepl
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» [/résolu] problème avec java à l'instalation :-/
» Problème avec Java
» [Résolu] problème avec avira
» Problème avec décodeur Tv
» problème avec Outlook

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: