ClipBoardImage 2 Desktop

[Ar-S]

ça fait bien longtemps que je me prenais la tête à vfaire des screenshots pour les envoyer sur le forum.
Imprim ecran puis ouvrir un soft de dessin puis recadrer puis ressauver etc...

Du coup j'ai fait ce petit soft qui permet de directement sauver votre image sur le bureau si vous faites un imprim ecran. Le nom de fichier s'incrémente automatiquement.
Vous devrez toujours recadrer la portion que vous voulez envoyer si besoin mais libre à vous de compléter ce code.

Instruction :
- Faire un imprim écran
- Lancer le logiciel
- The End

Code : Tout sélectionner

; ================================
; ClipboardImage 2 Desktop
; Author : Ar-S 
; Compil : PB5.7 x64
; Auto incrementation
; ================================

UseJPEGImageEncoder()
N = 0
ext$ = ".jpg"
Name$ = "PBScreenShot" 
File$ = GetUserDirectory( #PB_Directory_Desktop ) + Name$ + ext$
If GetClipboardImage(0) = 0 
  MessageRequester("Erreur"," Pas d'image dans le presse papier ! ")
  End
Else
  
  Repeat
    If FileSize(File$) > 0 ; Le fichier existe
      N+1
      Name$ =  "PBScreenShot"+Str(N)+ext$
      File$ = GetUserDirectory( #PB_Directory_Desktop ) + Name$
    Else
      Break
    EndIf
  ForEver 
  
    
  If SaveImage(0,File$,#PB_ImagePlugin_JPEG,7,24)    
    MessageRequester("OK","Image sauvée sur le bureau ("+name$+")")
  Else 
       MessageRequester("Erreur"," Aucune image n'a été sauvée ")
 
  EndIf
EndIf


End

[Kwai chang caine]

Putain !!! ça c'est du pavé de code
Mais je me dois de te remercier, j'avais jamais capté qu'il existait un GetClipBoardImage()
Si ça se trouve, il a toujours existé .... je ne sais pas pourquoi mais j'étais sûr que FRED ne gérait que le texte dans le PP
Encore merci du partage

[venom]

Toujours existé, je ne sais pas. Mais ça fait un moment qu'il est dispo







@++

[Ar-S]

Si si je crois qu'il est là depuis que j'utilise PB

[Micoute]

regardez dans Changements bibliothèques de v3.94 à v4.00


Clipboard

Changé: GetClipboardData(Type) en GetClipboardImage(#Image)
Changé: SetClipboardData(Type, Data) en SetClipboardImage(#Image)

[Ar-S]

Oui mais la fonction existait déjà donc sous un autre nom

[Kwai chang caine]

Ce qui m'épate toujours en PB, c'est que même après presque 20 ans, j'en découvre encore
J'entends déjà les mauvaises langues dire :
"Alors !!! pourquoi tu te plains que les nouvelles versions n'arrivent pas assez vites, puisque tu ne connais pas encore les vieilles "

Merci de vos réponses

[Micoute]

C'est tellement vrai, mais en même temps, on ne peut pas utiliser toutes les fonctions en même temps, il y en a même qu'on utilisera jamais.

[blendman]

coucou

Ah mais c'est cool ce GetClipboardImage() en fait (et setClipBoardImage()), punaise de bilouga...
Je n'y avais pas pensé pour mon logiciel 2D, avec ctrl+X, j'efface le calque actif comme un couillon, mais je vais le copier aussi dans le clipboard, comme ça, pouf, je pourrais le récupérer au besoin .

Merci pour ton petit outil .

Cela dit, sur certain PC sur windows 10, quand tu fais un imprim écran, il te propose d'enregistrer l'image directe dans un fichier (sur mon nouvel asus e401, il y a cette possibilité, via la touche F11).

A+