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
» PanExpress : l'éditeur Panoramic avec création d'objet
par Jean Claude Aujourd'hui à 11:55

» Projet de planétarium virtuel.
par Pedro Alvarez Hier à 17:29

» Quantité de mémoire utilisée par un exe
par Navigateur Hier à 14:52

» Problème avec 'file_load'.
par Pedro Alvarez Hier à 8:12

» Version instantanée V 0.9.28i20 du 13/06/2018
par jjn4 Sam 16 Juin 2018 - 14:25

» string$(0,chr$(32)) sans erreur
par silverman Ven 15 Juin 2018 - 19:56

» Version instantanée V 0.9.28i19 du 13/06/2018
par Minibug Ven 15 Juin 2018 - 19:14

» Mes souhaits d'amélioration de Panoramic.
par Pedro Alvarez Jeu 14 Juin 2018 - 20:17

» [RÉSOLU] Message d'erreur impossible à indentifier
par Minibug Mer 13 Juin 2018 - 20:52

» Cadre pour image
par Jean Claude Mar 12 Juin 2018 - 16:31

» Créateur d'objets Panoramic
par Minibug Mar 12 Juin 2018 - 14:02

» Planétarium gratuit.
par Jean Claude Sam 9 Juin 2018 - 18:50

» Comment afficher une image sans fond.
par JL35 Sam 9 Juin 2018 - 14:16

» image_width(n) et image_height(n)
par silverman Sam 9 Juin 2018 - 11:22

» Site sur la programmation sympa
par Jean Claude Jeu 7 Juin 2018 - 11:20

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2018
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
252627282930 
CalendrierCalendrier

Partagez | 
 

 Nouvelle DLL Pilote.dll

Aller en bas 
AuteurMessage
Klaus

avatar

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

MessageSujet: Nouvelle DLL Pilote.dll   Ven 17 Fév 2012 - 16:27

Nouvelle DLL Pilote: je déplace tout ce qui a trait à cette DLL, ici à cet endroit !

Pour rappel: les fonctions déjà existantes:

Execute_PANORAMIC - exécuter un progrfamme Panoramic en tant que "script", directement à partir de son source
Stop_PANORAMIC - arrêter un tel scripte et/ou arrêter l'éditeur Panoramic

Nouvelles fonctions;

Ces fonctions permettent à un programme Panoramic de se comporter comme un programme en mode console et de pouvoir écrire sur StdOutput, de sorte qu'un programme suivant puisse récupérer cela, un peu comme DIR | MORE sous DOS. Ceci peut particulièrement être utilisé avec le nouveau programme PANORAMIC.exe que Jack a mis en ligne récemment. On peut alors faire
PANORAMIC.exe "mon source Panoramic.bas" | MORE
pour montrer le principe.


Open_StdOutput - Pour accéder à StdOutput en Panoramic :
res% = dll_call0("Open_StdOutput”)

Cette fonction donne accès à StdOutput à un programme Panoramic.

Write_StdOutput - Pour écrire sur StdOutput dans un programme Panoramic :
res% = dll_call1("Write_StdOutput",adr(text$))
text$ = texte à écrire

Cette fonction sert à écrire un texte sur StdOutput. Le texte peut avoir une longueur quelconque. S’il faut terminer le texte par CR LF, il faut inclure ces caractères dans la variable text$.

Close_StdOutput - Pour clore l’accès à StdOutput en Panoramic :
res% = dll_call0("Close_StdOutput”)

Cette fonction clôt l’accès à StdOutput.

Ceci pourrait intéresser Jean Debord, par exemple. J'ai aussi une fonction permettant dee récupérer StdInput dans un programme Panoramic - je la mettrai en ligne prochainement.


D'ailleurs, voici le code concerné par StdOutput dans ma DLL:
Code:

var
  OutputStream : THandleStream;

...

function Open_StdOutput(): integer; stdcall; export;
begin
//  InputStream := THandleStream.Create(GetStdHandle(STD_INPUT_HANDLE));
  OutputStream := THandleStream.Create(GetStdHandle(STD_OUTPUT_HANDLE));
  result := 0;
end;

function Write_StdOutput(txt: pchar): integer; stdcall; export
var
  text: string;
begin
  text := pchar(pstring(txt)^);
  OutputStream.Write(text[1],length(text));
  result := 0;
end;

function Close_StdOutput(): integer; stdcall; export
begin
  OutputStream.Free;
  result := 0;
end;

Suggestion à Jack: Peut-être pourrais-tu insérer un code similaire dans Panoramic pour donner accès à cela ?
Jean-Debord a proposé un PRINT_TARGET_IS_CONSOLE.
Je proposerais plutôt un FILECONSOLE_OPEN_WRITE, FILECONSOLE_WRITE et FILECONSOLE_CLOSE, dans la sémantique des FILEBIN_... . On pourrait facilement y ajouter FILECONSOLE_OPEN_READ et FILECONSOLE_READ pour compléter les fonctions.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
jean_debord

avatar

Nombre de messages : 799
Age : 63
Localisation : Limoges
Date d'inscription : 21/09/2008

MessageSujet: Re: Nouvelle DLL Pilote.dll   Sam 18 Fév 2012 - 8:28

Merci Klaus. Je viens de récupérer la DLL.

Je suis d'accord que des instructions FILECONSOLE... seraient plus utiles qu'un autre PRINT_TARGET
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.unilim.fr/pages_perso/jean.debord/index.htm
Klaus

avatar

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

MessageSujet: Re: Nouvelle DLL Pilote.dll   Ven 24 Fév 2012 - 10:07

J'ai mis en ligne une nouvelle version de pilote.dll.

Les nouvelles fonctions sont:
res% = dll_call0("Open_StdInput”)
len% = dll_call1("Read_StdInput”,adr(text$))
res% = dll_call0("Close_StdInput”)
Vkbincode% = dll_call1("Get_VK_code" ,adr(vknametext$))
res% = dll_call2("Get_VK_name" ,vkbincode%,adr(vknametext$))
res% = dll_call2("SendCharacter" ,adr(windowtitle$),adr(text$))
res% = dll_call2(“SendCharacterByHandle”,hnd%,adr(text$))
hnd% = dll_call3("FindFirstWindow",adr(titre$),adr(classe$),mode%)
hnd% = dll_call3("FindFirstWindow",adr(titre$),adr(classe$),mode%)
Res% = dll_call1("GetWindowFilter",adr(filter$))
Res% = dll_call1("SetWindowFilter",adr(filter$))

On peut maintenant envoyer n'importe quel texte à n'importe quelle fenêtre Windows (programme Panoramic, outil Windows comme Word, Notepad, ...) envoyer n'importe quelle touche fonction à n'importe quelle fenêtre etc. On peut aussi obtenir la liste des fenêtres actives de Windows, éventuellement filtrée par classe de fenêtre, etc. Toute la doc est dans le fichier de documentation habituel. Voici un programme de démo (dé préférence à utiliser dans sa forme EXE):
Code:
' test Send_Character.bas

label envoyer, fermer, choix, charger, maj

dim res%, id$, txt$, s$, hnd%, c$, m%, filtre$
id$ = "test.txt - Bloc-notes"

height 0,550 : width 0,680 : caption 0,"Send_Character"

edit 1 : top 1,40 : left 1,10 : width 1,200
edit 2 : top 2,40 : left 2,220
alpha 111 : top 111,20 : left 111,10 : caption 111,"Texte à envoyer:"
alpha 112 : top 112,20 : left 112,220 : caption 112,"Titre de la fenêtre ciblée:"
alpha 113 : top 113,20 : left 113,350 : caption 113,"Handle de la fenêtre ciblée"
alpha 114 : top 114,160 : left 114,350 : caption 114,"Liste des fenêtres éligibles:"
list 3 : top 3,100 : left 3,10 : width 3,330 : height 3,400
edit 4 : top 4,40 : left 4,350
container_option 5 : top 5,20 : left 5,500 : height 5,80 : width 5,80
  caption 5,"Ciblée par"
option 6 : parent 6,5 : top 6,20 : left 6,10 : width 6,60 : caption 6,"Titre"
option 7 : parent 7,5 : top 7,40 : left 7,10 : width 7,60 : caption 7,"Handle"

list 8 : top 8,180 : left 8,350 : width 8,300 : height 8,320
  on_click 8,choix

container_option 9 : top 9,20 : left 9,580 : height 9,80 : width 9,80
  caption 9,"Filtrer"
option 10 : parent 10,9 : top 10,20 : left 10,10 : width 10,60 : caption 10,"Oui"
option 11 : parent 11,9 : top 11,40 : left 11,10 : width 11,60 : caption 11,"Non"
option 12 : parent 12,9 : top 12,60 : left 12,10 : width 12,60 : caption 12,"Debug"

edit 13 : top 13,110 : left 13,350 : width 13,250

button 100 : left 100,10 : top 100,70 : caption 100,"Envoyer"
  on_click 100,envoyer
button 101 : left 101,220 : top 101,70 : caption 101,"Fermer ce programme"
  width 101,120 : on_click 101,fermer
button 102 : left 102,500 : top 102,150 : caption 102,"Charger les cibles"
  width 102,120 : on_click 102,charger
button 103 : left 103,610 : top 103,110 : width 103,50 : caption 103,"Maj"
  on_click 103,maj
 
text 1,"+ceci est un texte"
text 2,id$
text 4,str$(handle_form(id$))

item_add 3,"Le texte saisi est envoyé au programme ciblé."
item_add 3,""
item_add 3,"Les caractères suivants ont une fonction particulière:"
item_add 3,"  °  = prendre le caractère suivant littéralement"
item_add 3,""
item_add 3,"  + = Shift"
item_add 3,"  ^ = Control"
item_add 3,"  % = Alt"
item_add 3,""
item_add 3,"Les modificateurs +, ^ et % agissent uniquement sur le caractère"
item_add 3,"suivant. On peut laisser agir un modificateur sur un groupe de"
item_add 3,"caractères en utilisant les parenthèses:"
item_add 3,"    +(abcde)fgh  produira  ABCDEfgh"
item_add 3,""
item_add 3,"Les accolades permettent de spécifier une touche fonction parmi"
item_add 3,"la liste ci-après. Ce sont les codes VK_xxx. Un espace suivi"
item_add 3,"d'une valeur numérique indique un facteur de répétition:"
item_add 3,"    {left}    =  1 flèche à gauche"
item_add 3,"    {left 12}  =  12 flèches à gauche"
item_add 3,""
item_add 3,"Liste des codes reconnus:"
item_add 3,"  BKSP, BS, BACKSPACE, BREAK, CAPSLOCK, CLEAR, DEL"
item_add 3,"  DELETE, DOWN, END, ENTER, ESC, ESCAPE, F1...F16"
item_add 3,"  HELP, HOME, INS, LEFT, NUMLOCK, PGDN, PGUP, PRTSC"
item_add 3,"  RIGHT, SCROLLLOCKTAB, UP"

dll_on "pilote.dll"
filtre$ = string$(255," ")
res% = dll_call1("GetWindowFilter",adr(filtre$))
filtre$ = trim$(filtre$)
text 13,filtre$
dll_off

mark_on 6 : mark_on 10

end

envoyer:
dll_on "pilote.dll"
txt$ = text$(1)
id$ = text$(2)
if checked(6)=1
  res% = dll_call2("SendCharacter",adr(id$),adr(txt$))
else
  hnd% = val(text$(4))
  res% = dll_call2("SendCharacterByHandle",hnd%,adr(txt$))
end_if
dll_off
return

fermer:
text 1,"%{F4}"
return

choix:
if left$(item_index$(8),1)="(" then return
text 2,item_index$(8)
text 4,str$(handle_form(text$(2)))
return

charger:
clear 8
m% = checked(10)
dll_on "pilote.dll"
' la ligne suivante est requise une seule fois, après DLL_ON,
' et UNIQUEMENT si l'on change le filtre par défaut sui est:
'    TForm1,TApplication
res% = dll_call1("SetWindowFilter",adr(filtre$)) : ' recharger le filtre modifié
s$ = string$(255," ")
c$ = string$(255," ")
hnd% = dll_call3("FindFirstWindow",adr(s$),adr(c$),m%)
while hnd%<>0
  item_add 8,trim$(s$)
  if checked(12)=1 then item_add 8,"("+trim$(c$)+")"
  s$ = string$(255," ")
  c$ = string$(255," ")
  hnd% = dll_call4("FindNextWindow",hnd%,adr(s$),adr(c$),m%)
end_while
dll_off
return

maj:
filtre$ = trim$(text$(13))
' dll_on "pilote.dll"
' res% = dll_call1("SetWindowFilter",adr(filtre$)) : ' recharger le filtre modifié
' dll_off
return


Dernière édition par Klaus le Ven 24 Fév 2012 - 11:24, édité 1 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Jicehel

avatar

Nombre de messages : 5923
Age : 45
Localisation : 77500
Date d'inscription : 18/04/2011

MessageSujet: Re: Nouvelle DLL Pilote.dll   Ven 24 Fév 2012 - 10:26

Wouah, costaud .... bon, j'essaye ce week-end...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Nouvelle DLL Pilote.dll   

Revenir en haut Aller en bas
 
Nouvelle DLL Pilote.dll
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Nouvelle de Numericable (Mobile / Free)
» Bonne nouvelle pour les non-dégroupés de FREE !!!!
» Nouvelle animation .....[résolu merci]
» nouvelle commande
» Nouvelle voiture pour Kit dans la suite de K2000

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: