OVH Cloud OVH Cloud

Du presse papier au Jpeg

19 réponses
Avatar
Antoine D
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer automatiquement
un fichier Jpeg (pas de bmp) à partir du contenu du presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan
As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière de
nommer le fichier.

Je compte grandement sur votre aide, merci.

10 réponses

1 2
Avatar
X
Bonjour,

Je ne comprends pas tout (c'est fréquent), pourquoi fais-tu une
procédure de copie de l'image, dans la mesure où l'image est copiée depuis
sa source, par exemple, si ça vient de paint, tu fais "copier" dans paint,
et ça passe dans le presse-papier; et si ça vient d'un fichier, la
conversion se fait directement sur le fichier en le renommant ensuite (par
exemple avec paint) ?

En conclusion, tu as Paint qui fait déjà ce que tu veux faire, alors
pourquoi réécrire en quelque sorte un Paint dans un programme, au surplus,
il n'y a qu'à le lancer depuis le programme avec le fichier... A moins que
cette fonction ne soit qu'une partie du programme, sinon, Paint fait ce que
tu veux faire, certes, il faudra par toi même écrire le nom du fichier...

--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450b0cdc$0$29533$
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer
automatiquement un fichier Jpeg (pas de bmp) à partir du contenu du
presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière de
nommer le fichier.

Je compte grandement sur votre aide, merci.




Avatar
Antoine D
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double cliquer
sur une icône, permette de génrer un fichier de manière transparente pour
l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic (faisable
pour tout un chacun) mais je souhaite pour un logiciel de dossier patient
récupérer l'apercu sous forme de fichier .jpeg nommé automatique ou renommé
par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de faire
"nouveau", de coller, de faire enregistrer sous, de choisir jpeg, de
designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement de
santé... Si on plus on leur demander de faire des manips complémentaires de
niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



"X" a écrit dans le message de news:
%
Bonjour,

Je ne comprends pas tout (c'est fréquent), pourquoi fais-tu une
procédure de copie de l'image, dans la mesure où l'image est copiée depuis
sa source, par exemple, si ça vient de paint, tu fais "copier" dans paint,
et ça passe dans le presse-papier; et si ça vient d'un fichier, la
conversion se fait directement sur le fichier en le renommant ensuite (par
exemple avec paint) ?

En conclusion, tu as Paint qui fait déjà ce que tu veux faire, alors
pourquoi réécrire en quelque sorte un Paint dans un programme, au surplus,
il n'y a qu'à le lancer depuis le programme avec le fichier... A moins que
cette fonction ne soit qu'une partie du programme, sinon, Paint fait ce
que tu veux faire, certes, il faudra par toi même écrire le nom du
fichier...

--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450b0cdc$0$29533$
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer
automatiquement un fichier Jpeg (pas de bmp) à partir du contenu du
presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière de
nommer le fichier.

Je compte grandement sur votre aide, merci.








Avatar
X
Heu, déjà faut chercher, je ne sais pas comment on passe de bmp en jpg, mais
il existe une touche pour copier <impr ecr>.
Ceci étant dit, ta routine API copie l'écran, mais l'écran ça peut être
n'importe quoi, tu peux avoir plusieurs programmes avec plusieurs tâches,
qui se chevauchent, etc...
Donc, par touche ou icône (raccourci pointant sur un programme), ça va
copier ce qu'il y ait à l'écran, quoi qu'il y ait... C'est là ou je
m'étonne, d'une part parce qu'appuyer sur une touche va plus vite que de
cliquer sur un programme, mais encore parce que sans définir préalablement
dans un programme qui contiendrait une boîte-image, on risque de copier
n'importe quoi à l'écran...
Ça n'engage que moi, mais il me paraîtrait plus logique de copier l'image
dans une boit-image, de l'isoler, pour être certain que c'est ça qu'on veut
copier, puis ensuite d'en faire un fichier jpg avec les différents choix et
automatismes que tu évoques...
C'est quoi ton image à copier, d'ou vient-elle, par quoi est-elle produite
???

Nonobstant, comme il s'agit d'une copie d'écran pour transformation en
fichier jpg, il existe peut être, sans doute, déjà des applications qui font
ce travail, effectues préalablement une recherche sur le Net (vb France,
source, etc, à "copie d'écran, etc")...
--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double cliquer
sur une icône, permette de génrer un fichier de manière transparente pour
l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg, de
designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement
de santé... Si on plus on leur demander de faire des manips
complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



"X" a écrit dans le message de news:
%
Bonjour,

Je ne comprends pas tout (c'est fréquent), pourquoi fais-tu une
procédure de copie de l'image, dans la mesure où l'image est copiée
depuis sa source, par exemple, si ça vient de paint, tu fais "copier"
dans paint, et ça passe dans le presse-papier; et si ça vient d'un
fichier, la conversion se fait directement sur le fichier en le renommant
ensuite (par exemple avec paint) ?

En conclusion, tu as Paint qui fait déjà ce que tu veux faire, alors
pourquoi réécrire en quelque sorte un Paint dans un programme, au
surplus, il n'y a qu'à le lancer depuis le programme avec le fichier... A
moins que cette fonction ne soit qu'une partie du programme, sinon, Paint
fait ce que tu veux faire, certes, il faudra par toi même écrire le nom
du fichier...

--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450b0cdc$0$29533$
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer
automatiquement un fichier Jpeg (pas de bmp) à partir du contenu du
presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière de
nommer le fichier.

Je compte grandement sur votre aide, merci.












Avatar
Antoine D
Merci pour ta réponse

C'est plus simple que ça, le logiciel de la manip radio copie déjà le cliché
"propre". (menu edition / copier) : c'est faisable pour elle :)
J'ai donc dans mon presse-papiers le cliché et rien que le cliché...

je voudrais ensuite qu'elle puis juste clique sur une icone, que l'on
pourrait lancer avec un raccourci clavier windows par exemple, pour que le
contenu du presse papier soit directement enregistré sur le disque en format
jpeg... avec soit une invite pour nommer le fichier soit une génération de
nom basée sur la date et l'heure.

Merci pour vos réponses (j'ai passé trois heures à chercher avant de poste,
je pense etre un gentil posteur...)



"X" a écrit dans le message de news:

Heu, déjà faut chercher, je ne sais pas comment on passe de bmp en jpg,
mais il existe une touche pour copier <impr ecr>.
Ceci étant dit, ta routine API copie l'écran, mais l'écran ça peut être
n'importe quoi, tu peux avoir plusieurs programmes avec plusieurs tâches,
qui se chevauchent, etc...
Donc, par touche ou icône (raccourci pointant sur un programme), ça va
copier ce qu'il y ait à l'écran, quoi qu'il y ait... C'est là ou je
m'étonne, d'une part parce qu'appuyer sur une touche va plus vite que de
cliquer sur un programme, mais encore parce que sans définir préalablement
dans un programme qui contiendrait une boîte-image, on risque de copier
n'importe quoi à l'écran...
Ça n'engage que moi, mais il me paraîtrait plus logique de copier l'image
dans une boit-image, de l'isoler, pour être certain que c'est ça qu'on
veut copier, puis ensuite d'en faire un fichier jpg avec les différents
choix et automatismes que tu évoques...
C'est quoi ton image à copier, d'ou vient-elle, par quoi est-elle produite
???

Nonobstant, comme il s'agit d'une copie d'écran pour transformation en
fichier jpg, il existe peut être, sans doute, déjà des applications qui
font ce travail, effectues préalablement une recherche sur le Net (vb
France, source, etc, à "copie d'écran, etc")...
--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double
cliquer sur une icône, permette de génrer un fichier de manière
transparente pour l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg,
de designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement
de santé... Si on plus on leur demander de faire des manips
complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



"X" a écrit dans le message de news:
%
Bonjour,

Je ne comprends pas tout (c'est fréquent), pourquoi fais-tu une
procédure de copie de l'image, dans la mesure où l'image est copiée
depuis sa source, par exemple, si ça vient de paint, tu fais "copier"
dans paint, et ça passe dans le presse-papier; et si ça vient d'un
fichier, la conversion se fait directement sur le fichier en le
renommant ensuite (par exemple avec paint) ?

En conclusion, tu as Paint qui fait déjà ce que tu veux faire, alors
pourquoi réécrire en quelque sorte un Paint dans un programme, au
surplus, il n'y a qu'à le lancer depuis le programme avec le fichier...
A moins que cette fonction ne soit qu'une partie du programme, sinon,
Paint fait ce que tu veux faire, certes, il faudra par toi même écrire
le nom du fichier...

--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450b0cdc$0$29533$
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer
automatiquement un fichier Jpeg (pas de bmp) à partir du contenu du
presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière
de nommer le fichier.

Je compte grandement sur votre aide, merci.
















Avatar
Jean-marc
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double cliquer
sur une icône, permette de génrer un fichier de manière transparente pour
l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg, de
designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement
de santé... Si on plus on leur demander de faire des manips
complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



Hello,

j'ai une solution toute simple pour ce que tu veux faire.
Cette solution nécessite l'usage d'une dll: ijl11.dll.
C'est une dll de chez Intel, qui **POUR CE QUE J'EN SAIS**
est libre de droit (tu peux l'utiliser et la redistribuer).

Si ça ne te pose pas de problèmes, alors il y a une solution
vraiment très simple, je pourrais te donner tout ça.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
Avatar
X
Antoine,

Tiens, voici sous-cité le code, ça marche, j'ai trouvé une dll sur le Net,
la dll est à charger sur mon site à :

http://joe75018.free.fr/SSHOT8514.dll

Il faut mettre les fichiers joints (frm, vbp, vbw) et la dll sus-citée dans
le même répertoire...

A compiler en exe, puis faire un raccourci...

Est-ce que ça te va ???

---code--------

' form1 : conv capture ecr en jpg
'
Option Explicit
Private Declare Function sshot Lib "SSHOT8514" (ByVal chemin As String, _
ByVal typeimage As String, ByVal qualite As Integer, _
ByVal xdim As Integer, ByVal ydim As Integer) As Integer
'
Sub Form_Load()
Dim retour As Integer
Dim nomfic As String
'
Form1.Visible = False
nomfic = ""
nomfic = nomfic & Year(Date)
nomfic = nomfic & Format(Month(Date), "00")
nomfic = nomfic & Format(Day(Date), "00")
nomfic = nomfic & Format(Hour(Time), "00")
nomfic = nomfic & Format(Minute(Time), "00")
nomfic = nomfic & Format(Second(Time), "00")
nomfic = nomfic & ".jpg"
retour = sshot(App.Path & nomfic, "jpg", 100, 0, 0)
Unload Form1
End
End Sub


--
Merci beaucoup, au revoir et à bientôt :o)
------
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450bc5ff$0$998$
Merci pour ta réponse

C'est plus simple que ça, le logiciel de la manip radio copie déjà le
cliché
"propre". (menu edition / copier) : c'est faisable pour elle :)
J'ai donc dans mon presse-papiers le cliché et rien que le cliché...

je voudrais ensuite qu'elle puis juste clique sur une icone, que l'on
pourrait lancer avec un raccourci clavier windows par exemple, pour que le
contenu du presse papier soit directement enregistré sur le disque en
format
jpeg... avec soit une invite pour nommer le fichier soit une génération de
nom basée sur la date et l'heure.

Merci pour vos réponses (j'ai passé trois heures à chercher avant de
poste,
je pense etre un gentil posteur...)



"X" a écrit dans le message de news:

Heu, déjà faut chercher, je ne sais pas comment on passe de bmp en jpg,
mais il existe une touche pour copier <impr ecr>.
Ceci étant dit, ta routine API copie l'écran, mais l'écran ça peut être
n'importe quoi, tu peux avoir plusieurs programmes avec plusieurs tâches,
qui se chevauchent, etc...
Donc, par touche ou icône (raccourci pointant sur un programme), ça va
copier ce qu'il y ait à l'écran, quoi qu'il y ait... C'est là ou je
m'étonne, d'une part parce qu'appuyer sur une touche va plus vite que de
cliquer sur un programme, mais encore parce que sans définir
préalablement
dans un programme qui contiendrait une boîte-image, on risque de copier
n'importe quoi à l'écran...
Ça n'engage que moi, mais il me paraîtrait plus logique de copier l'image
dans une boit-image, de l'isoler, pour être certain que c'est ça qu'on
veut copier, puis ensuite d'en faire un fichier jpg avec les différents
choix et automatismes que tu évoques...
C'est quoi ton image à copier, d'ou vient-elle, par quoi est-elle
produite
???

Nonobstant, comme il s'agit d'une copie d'écran pour transformation en
fichier jpg, il existe peut être, sans doute, déjà des applications qui
font ce travail, effectues préalablement une recherche sur le Net (vb
France, source, etc, à "copie d'écran, etc")...
--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double
cliquer sur une icône, permette de génrer un fichier de manière
transparente pour l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg,
de designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement
de santé... Si on plus on leur demander de faire des manips
complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



"X" a écrit dans le message de news:
%
Bonjour,

Je ne comprends pas tout (c'est fréquent), pourquoi fais-tu une
procédure de copie de l'image, dans la mesure où l'image est copiée
depuis sa source, par exemple, si ça vient de paint, tu fais "copier"
dans paint, et ça passe dans le presse-papier; et si ça vient d'un
fichier, la conversion se fait directement sur le fichier en le
renommant ensuite (par exemple avec paint) ?

En conclusion, tu as Paint qui fait déjà ce que tu veux faire, alors
pourquoi réécrire en quelque sorte un Paint dans un programme, au
surplus, il n'y a qu'à le lancer depuis le programme avec le fichier...
A moins que cette fonction ne soit qu'une partie du programme, sinon,
Paint fait ce que tu veux faire, certes, il faudra par toi même écrire
le nom du fichier...

--
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450b0cdc$0$29533$
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer
automatiquement un fichier Jpeg (pas de bmp) à partir du contenu du
presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière
de nommer le fichier.

Je compte grandement sur votre aide, merci.






















begin 666 convjpg.vbp
M5'EP93U%>&4-"D9O<FT]1F]R;3$N9G)M#0I2969E<F5N8V4]*EQ'>S P,#(P
M-#,P+3 P,# M,# P,"U#,# P+3 P,# P,# P,# T-GTC,BXP(S C+BY<+BY<
M+BY<+BY<+BY<+BY<5TE.1$]74UQS>7-T96TS,EQS=&1O;&4R+G1L8B-/3$4@
M075T;VUA=&EO;@T*26-O;D9O<FT](D9O<FTQ(@T*4W1A<G1U<#TB1F]R;3$B
M#0I%>&5.86UE,S(](E!R;VIE8W0Q+F5X92(-"D-O;6UA;F0S,CTB(@T*3F%M
M93TB4')O:F5C=#$B#0I(96QP0V]N=&5X=$E$/2(P(@T*0V]M<&%T:6)L94UO
M9&4](C B#0I-86IO<E9E<CTQ#0I-:6YO<E9E<CTP#0I2979I<VEO;E9E<CTP
M#0I!qO26YC<F5M96YT5F5R/3 -"E-E<G9E<E-U<'!O<G1&:6QE<STP#0I6
M97)S:6]N0V]M<&%N>4YA;64](E-%05)#2"!!$535%)/62(-"D-O;7!I
M;&%T:6]N5'EP93TP#0I/<'1I;6EZ871I;VY4>7!E/3 -"D9A=F]R4&5N=&EU
M;5!R;RAT;2D], T*0V]D959I97=$96)U9TEN9F], T*3F]!;&EA<VEN9STP
M#0I";W5N9'-#:&5C:STP#0I/õR9FQO=T-H96-K/3 -"D9L4&]I;G1#:&5C
M:STP#0I&1$E60VAE8VL], T*56YR;W5N9&5D1E ], T*4W1A<G1-;V1E/3 -
M"E5N871T96YD960], T*4F5T86EN960], T*5&AR96%D4&5R3V)J96-T/3 -
M"DUA>$YU;6)E<D]F5&AR96%D<STQ#0H-"EM-4R!4<F%N<V%C=&EO;B!397)V
497)=#0I!qO4F5F<F5S:#TQ#0H`
`
end

begin 666 convjpg.vbw
M1F]R;3$@/2 T-"@L(#8U, R+" L(#(R+" ,Q+" T-S,L
$($,-"@``
`
end

begin 666 Form1.frm
M5D524TE/3B U+C P#0I"96=I;B!60BY&;W)M($9O<FTQ( T*(" @0V%P=&EO
M;B @(" @(" @(#T@(" B1F]R;3$B#0H@("!#;&EE;G1(96EG:'0@(" @/2 @
M(#,P.3 -"B @($-L:65N=$QE9G0@(" @(" ](" @-C -"B @($-L:65N=%1O
M<" @(" @(" ](" @-#4P#0H@("!#;&EE;G17:61T:" @(" @/2 @(#0V.# -
M"B @($QI;FM4;W!I8R @(" @(" ](" @(D9O<FTQ(@T*(" @4V-A;&5(96EG
M:'0@(" @(#T@(" S,#DP#0H@("!38V%L95=I9'1H(" @(" @/2 @(#0V.# -
M"B @(%-T87)T57!0;W-I=&EO;B ](" @,R @)U=I;F1O=W,@1&5F875L= T*
M16YD#0I!='1R:6)U=&)?3F%M92 ](")&;W)M,2(-"D%T=')I8G5T92!6
M0E]';&]B86Q.86UE4W!A8V4@/2!&86QS90T*071T<FEBqE(%9"7T-R96%T
M86)L92 ]($9A;'-E#0I!='1R:6)U=&)?4')E9&5C;&%R961)9" ](%1R
Md-"D%T=')I8G5T92!60E]%>'!O<V5D(#%L<V4-"B @)R!F;W)M,2 Z
M(&-O;%P='5R92!E8W(@96X@:G!G#0H@(" @)PT*("!/<'1I;
M;&EC:70-"B @4')I=F%T92!$96-L87)E($9U;F-T:6]N('-S:&]T($QI8B B
M4U-(3U0X-3$T(B ;6EN($%S(%-T*(" @($)Y
M5F%L('1Y<&5I;6%G92!!<R!3=')I;F<L($)Y5F%L('%U86QI=&,@26YT
M96=E*(" @($)Y5F%L('AD:,@26YT96=E@>61I
M;2!!<R!);G1E9V5R*2!!<R!);G1E9V5R#0H@(" @)PT*4W5B($9O<FU?3&]A
M9"@I#0H@($1I;2!R971O=7(@07,@26YT96=E<@T*("!$:6T@;F]M9FEC($%S
M(%-T<FEN9PT*(" G#0H@($9O<FTQ+E9I<VEB;&4@/2!&86QS90T*("!N;VUF
M:6,@/2 B7"(-"B @;F]M9FEC(#T@;F]M9FEC("<BA$871E*0T*("!N
M;VUF:6,@/2!N;VUF:6,@)B!&;W)M870H36]N=&@H1&%T92DL("(P,"(I#0H@
M(&YO;69I8R ](&YO;69I8R F($9O<FUA="A$87DH1&%T92DL("(P,"(I#0H@
M(&YO;69I8R ](&YO;69I8R F($9O<FUA="A(;W5R*%1I;64I+" B,# B*0T*
M("!N;VUF:6,@/2!N;VUF:6,@)B!&;W)M870H36ENqE*%1I;64I+" B,# B
M*0T*("!N;VUF:6,@/2!N;VUF:6,@)B!&;W)M870H4V5C;VYD*%1I;64I+" B
M,# B*0T*("!N;VUF:6,@/2!N;VUF:6,@)B B+FIP9R(-"B @<F5T;W5R(#T@
M<W-H;W0H07!P+E!A=&@@)B!N;VUF:6,L(")J<&<B+" Q,# L(# L(# I#0H@
?(%5N;&]A9"!&;W)M,0T*("!%;F0-"D5N9"!3=6(-"@``
`
end
Avatar
Antoine D
Merci

Bah je suis preneur , mais je ne connais rien en Vb, alors je veux bien de
cette .dll mais toute seule elle risque de ne pas me servir à grand chose ;)
...


"Jean-marc" a écrit dans le message
de news: 450bc9c1$0$10455$
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double
cliquer sur une icône, permette de génrer un fichier de manière
transparente pour l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg,
de designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement
de santé... Si on plus on leur demander de faire des manips
complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



Hello,

j'ai une solution toute simple pour ce que tu veux faire.
Cette solution nécessite l'usage d'une dll: ijl11.dll.
C'est une dll de chez Intel, qui **POUR CE QUE J'EN SAIS**
est libre de droit (tu peux l'utiliser et la redistribuer).

Si ça ne te pose pas de problèmes, alors il y a une solution
vraiment très simple, je pourrais te donner tout ça.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;




Avatar
Jean-marc
ok, le temps de faire un petit prog d'exemple
et je poste tout ici même, ce soir ou demain.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"Antoine D" a écrit dans le message de news:
450c4630$0$31451$
Merci

Bah je suis preneur , mais je ne connais rien en Vb, alors je veux bien de
cette .dll mais toute seule elle risque de ne pas me servir à grand chose
;) ...


"Jean-marc" a écrit dans le
message de news: 450bc9c1$0$10455$
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double
cliquer sur une icône, permette de génrer un fichier de manière
transparente pour l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg,
de designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un établissement
de santé... Si on plus on leur demander de faire des manips
complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



Hello,

j'ai une solution toute simple pour ce que tu veux faire.
Cette solution nécessite l'usage d'une dll: ijl11.dll.
C'est une dll de chez Intel, qui **POUR CE QUE J'EN SAIS**
est libre de droit (tu peux l'utiliser et la redistribuer).

Si ça ne te pose pas de problèmes, alors il y a une solution
vraiment très simple, je pourrais te donner tout ça.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;








Avatar
Antoine D
Un grand grand merci par avance


"Jean-marc" a écrit dans le message
de news: 450c4bf0$0$5529$
ok, le temps de faire un petit prog d'exemple
et je poste tout ici même, ce soir ou demain.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;
"Antoine D" a écrit dans le message de news:
450c4630$0$31451$
Merci

Bah je suis preneur , mais je ne connais rien en Vb, alors je veux bien
de cette .dll mais toute seule elle risque de ne pas me servir à grand
chose ;) ...


"Jean-marc" a écrit dans le
message de news: 450bc9c1$0$10455$
"Antoine D" a écrit dans le message de news:
450bb8a0$0$993$
Bonjour,

En fait le problème tient des manipulations ...

Concrètement pour des besoins professionnels je cherche un système qui
puisse a des néophytes sans manipulation autre que celle de double
cliquer sur une icône, permette de génrer un fichier de manière
transparente pour l'utilisateur.

Je m'explique plus en détails : un manipulateur radio peut depuis son
logiciel copier l'image en cours dans le presse papier en un clic
(faisable pour tout un chacun) mais je souhaite pour un logiciel de
dossier patient récupérer l'apercu sous forme de fichier .jpeg nommé
automatique ou renommé par l'utilisateur sur un dossier réseau.

Aujourd'hui l'utilisateur est effectivement obligé d'ouvrir paint, de
faire "nouveau", de coller, de faire enregistrer sous, de choisir jpeg,
de designer le bon chemin de faire engistrer sous et de fermer paint...

Un banc de radio numérique est déjà une révolution dans un
établissement de santé... Si on plus on leur demander de faire des
manips complémentaires de niveau ingénieur (sic...)

Alors si vous voulez attendre 30 mn de plus quand vous allez passer une
simple radio, ne m'aidez pas !!! ;)



Hello,

j'ai une solution toute simple pour ce que tu veux faire.
Cette solution nécessite l'usage d'une dll: ijl11.dll.
C'est une dll de chez Intel, qui **POUR CE QUE J'EN SAIS**
est libre de droit (tu peux l'utiliser et la redistribuer).

Si ça ne te pose pas de problèmes, alors il y a une solution
vraiment très simple, je pourrais te donner tout ça.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
mailto: remove '_no_spam_' ;












Avatar
X
Cher Antoine,

Ma réponse du 16/09/2006 à 14h13:

Veux-tu me dire si tu désir ou non copier la dll que je te propose en
solution à ta question, car elle encombre, je vais devoir la supprimer faute
de réponse...

Merci beaucoup, au revoir et à bientôt :o)

------
Site ROMANS édités
http://www.manuscritdepot.com/a.joseph-attila-pusztay.1.htm
Site LOGICIELS
http://irolog.free.fr
Mail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"Antoine D" a écrit dans le message de news:
450b0cdc$0$29533$
Bonjour,

Je ne connais rien en Vb mais je cherche un moyen de générer
automatiquement un fichier Jpeg (pas de bmp) à partir du contenu du
presse papier.

Il me faut absolument que je puisse paramètrer (en dur) le chemin de
destination et que le script puisse soit :

- générer automatiquement un nom de fichier du type
(année+mois+jour+hh+mm+ss)
- afficher une inviter pour nommer le fichier

J'ai pour l'instant trouvé ça mais il y a une erreur dans le script.


Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal
bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_SNAPSHOT = &H2C

theFile [chemin]
Public Function SaveScreen(ByVal theFile As String) As Boolean
If IsFileExist(theFile) = True Then
Kill theFile
End If
Clipboard.clear
Call keybd_event(vbKeySnapshot, 0, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), theFile
End Function

L'idéal serait d'avoir deux scripts pour qui différencient la manière de
nommer le fichier.

Je compte grandement sur votre aide, merci.




1 2