[ok] Screen to Image

blendman · Message par **blendman** » ven. 12/juin/2015 17:59

salut

j'essaie d'enregistrer ce que j'affiche sur mon screen sur une image. J4ai donc pensé utilisé drawingbuffer(), mais ça m'enregistre une image toute noire.

Je ne sais pas trop d'où vient le bug ^^.

Si vous avez une idée, ça me serait très utile

.

Code : Tout sélectionner





W = 1024
H = 768
UsePNGImageDecoder()
UsePNGImageEncoder()
file$ = OpenFileRequester("Open Image", "","png|*.png",0)
If file$ <> ""
LoadImage(0,file$)

OpenWindow(0, 0, 0, W,H, "Screen to Image", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
InitSprite()
OpenWindowedScreen( WindowID(0),0,0,W,H)

ClearScreen(RGB(200,200,200))
If StartDrawing(ScreenOutput())
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  DrawAlphaImage(ImageID(0),0,0)
  StopDrawing()
EndIf

; FlipBuffers()
 
W = ScreenWidth()
H = ScreenHeight()
Dim ColorR(W*H)
Dim ColorG(W*H)
Dim ColorB(W*H)


If StartDrawing(ScreenOutput())
  
  DrawingMode(#PB_2DDrawing_AlphaBlend)

  Buffer = DrawingBuffer()
  
  If Buffer <> 0
    
    pixelFormat = DrawingBufferPixelFormat()
    lineLength = DrawingBufferPitch();Longueur d'une ligne
    
    ;If pixelFormat = #PB_PixelFormat_32Bits_BGR | #PB_PixelFormat_ReversedY
    
    For i = 0 To W - 1       
      For j = 0 To H - 1 
        
        ColorR(i*j) = PeekA(Buffer + 4 * i + j * lineLength)    
        ColorG(i*j) = PeekA(Buffer + 4 * i + j * lineLength + 1)
        ColorB(i*j) = PeekA(Buffer + 4 * i + j * lineLength + 2) 
        
      Next j      
    Next i
    
    ;EndIf
  EndIf
  
  StopDrawing()
EndIf

CreateImage(1,W,H,32,#PB_Image_Transparent)

If StartDrawing(ImageOutput(1))
  
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  
  Buffer = DrawingBuffer()
  
  If Buffer <> 0
    
    pixelFormat = DrawingBufferPixelFormat()
    
    lineLength = DrawingBufferPitch()
    
    If pixelFormat = #PB_PixelFormat_32Bits_BGR | #PB_PixelFormat_ReversedY
      
      For i = 0 To W - 1 
        
        For j = 0 To H - 1           
          PokeA(Buffer + 4 * i + j * lineLength,      ColorB(i*j))
          PokeA(Buffer + 4 * i + j * lineLength + 1,  ColorG(i*j))
          PokeA(Buffer + 4 * i + j * lineLength + 2,  ColorR(i*j))            
        Next j
        
      Next i
      
    EndIf
  EndIf
  
  StopDrawing()
EndIf

savefile$ = SaveFileRequester("Save image","", "png|*.png",0)
If savefile$ <> ""
  If SaveImage(1,savefile$,#PB_ImagePlugin_PNG)
  EndIf
EndIf

Repeat
  Event = WaitWindowEvent()
    
Until Event = #PB_Event_CloseWindow

EndIf

G-Rom · Message par **G-Rom** » ven. 12/juin/2015 20:08

Tu confonds index d'un tableau , offset pour la mémoire , et par dessus la marché tu oublie la couche alpha sur ton résultat

je te laisse regardé le code :

Code : Tout sélectionner


W = 1024
H = 768
UsePNGImageDecoder()
UsePNGImageEncoder()
file$ = OpenFileRequester("Open Image", "","png|*.png",0)
If file$ <> ""
LoadImage(0,file$)

OpenWindow(0, 0, 0, W,H, "Screen to Image", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
InitSprite()
OpenWindowedScreen( WindowID(0),0,0,W,H)

ClearScreen(RGB(200,200,200))
If StartDrawing(ScreenOutput())
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  DrawAlphaImage(ImageID(0),0,0)
  StopDrawing()
EndIf

; FlipBuffers()

W = ScreenWidth()
H = ScreenHeight()
Dim ColorR.a(W*H)
Dim ColorG.a(W*H)
Dim ColorB.a(W*H)

Dim *Pixel( W*H*4 )

If StartDrawing(ScreenOutput())
  
  DrawingMode(#PB_2DDrawing_AlphaBlend)

  Buffer = DrawingBuffer()
  
  If Buffer <> 0
    
;     pixelFormat = DrawingBufferPixelFormat()
;     lineLength = DrawingBufferPitch();Longueur d'une ligne
    
    ;If pixelFormat = #PB_PixelFormat_32Bits_BGR | #PB_PixelFormat_ReversedY
    
    For j = 0 To H - 1
      For i = 0 To W - 1 
      
          
       
        
        index.l         = i + W * j
        memory_offset  = (i*4) + W * (j*4)
        
        ColorR(index) = PeekA( (Buffer + memory_offset) + 0)
        ColorG(index) = PeekA( (Buffer + memory_offset) + 1)
        ColorB(index) = PeekA( (Buffer + memory_offset) + 2)
       
        
      Next      
    Next
    
    ;EndIf
  EndIf
  
  StopDrawing()
EndIf

CreateImage(1,W,H,32,#PB_Image_Transparent)

If StartDrawing(ImageOutput(1))
  
  DrawingMode(#PB_2DDrawing_AlphaBlend)
  
  Buffer = DrawingBuffer()
  
  If Buffer <> 0
    
    pixelFormat = DrawingBufferPixelFormat()
    
;     lineLength = DrawingBufferPitch()
    
  ; If pixelFormat = #PB_PixelFormat_32Bits_BGR | #PB_PixelFormat_ReversedY
    
    For j = 0 To H - 1 
      For i = 0 To W - 1 
             
          
        index.l = i + W * j
        memory_offset  = (i*4) + W * (j*4)
          
          PokeA(Buffer + memory_offset + 0,  ColorR(index))
          PokeA(Buffer + memory_offset + 1,  ColorG(index))
          PokeA(Buffer + memory_offset + 2,  ColorB(index)) 
          PokeA(Buffer + memory_offset + 3,  255) ; et l'alpha ? 
          
          
        Next
        
      Next
      
;     EndIf
  EndIf
  
  StopDrawing()
EndIf

savefile$ = SaveFileRequester("Save image","", "png|*.png",0)
If savefile$ <> ""
  If SaveImage(1,savefile$,#PB_ImagePlugin_PNG)
  EndIf
EndIf

Repeat
  Event = WaitWindowEvent()
    
Until Event = #PB_Event_CloseWindow

EndIf

Ca me sort une image inversé , je te laisse corrigé cela ^^

Edit :

un index du style W*H , ne peu pas être bon , en pixel 2x2 , tu a accès à l'index 4 , au pixel 1x4 aussi et au 4x1 aussi , pas bon donc

blendman · Message par **blendman** » sam. 13/juin/2015 12:27

salut

Merci pour ta correction et les explications.
Je ne maitrise pas du tout le drawingbuffer() et effectivement, j'avais vu que je m'étais trompé avec l'index et le reste ^^ (mais je ne savais pas trop comment corrigé).
En tout cas, tel quel ça peut servir pour faire un miroir horizontal d'une image ^^ (j'ai corrigé pour la sortie normale).

Micoute · Message par **Micoute** » dim. 14/juin/2015 13:29

Merci beaucoup, monsieur Spock.

blendman · Message par **blendman** » dim. 14/juin/2015 13:40

Merci M. Spock

avec pb 5.30, j'ai une ima à la ligne 63.

Cela dit, en utilisant grabsprite() et savesprite(), ça marche aussi pour sauvegarder l'écran (c'est finalement ce que j'ai décidé d'utiliser)

.

Marc56 · Message par **Marc56** » dim. 14/juin/2015 15:03

IMA ? je me suis demandé aussi, mais c'est peut-être Invalid Memory Access ?

J'ai ça aussi:

Waiting for executable to start...
Executable type: Windows - x64 (64bit, Unicode)
Executable started.
[ERROR] SaveScreen.pb (Line: 63)
[ERROR] Invalid memory access. (read error at address 192544771)

(ligne 63: If SaveImage(#Image2,savefile$,#PB_ImagePlugin_PNG))

PB 5.31 x64 / Windows 8.1
pareil en 5.24 LTS x86

"Spock! Do something!"

(please)

Marc56 · Message par **Marc56** » dim. 14/juin/2015 16:56

Même message avec cette nouvelle version

Attente du démarrage du programme...
Type d'exécutable: Windows - x64 (64bit, Unicode)
Exécutable démarré.
[ERREUR] Ligne: 60
[ERREUR] Accès mémoire invalide. (erreur de lecture à l'adresse 187236352)

(ligne 60: pixel() = Point(x,y))

Pour la version précédente, même message sous XP Pro (mais dans une VM vitrualbox, donc pas significatif)

Après un tas d'essais, le plantage mémoire semble arriver à cause de GrabDrawingImage, car si je change la taille de l'image capturée avec par exemple ça:

If GrabDrawingImage(#Image2, 0, 0, ScreenWidth()-1, ScreenHeight()-1 ) <> 0

Ça ne plante pas

(mais l'image est complètement bizarre)

Je laisse blendman dire ce que ça fait pour lui.
(Je ne n'ai pas encore beaucoup exploité le domaine graphique de PB)

(Merci Spock)

Edit: Je me demande maintenant s'il n'y a pas un paramètre dans la configuration du compilateur PB qui influence cela ? Les problèmes d'accès mémoire sont toujours difficiles à debbuger

Micheao · Message par **Micheao** » dim. 14/juin/2015 17:45

hello Mr spock

le code ne marche pas sur mon pc : Windows 8.1 et PB version 5.31

l'image apparait bien dans la fenetre mais à la sauvegarde ça plante impossible de fermer la fenetre ensuite rien est sauvegarder

Ar-S · Message par **Ar-S** » dim. 14/juin/2015 18:17

Salut Spock, bug ou pas j'ai testé ton code sous Linux PB5.31x64
Il ne plante pas mais génère une image complètement transparente, sans trace de l'originale.

G-Rom · Message par **G-Rom** » dim. 14/juin/2015 19:34

GrabDrawingImage() est buggé, ca ne marche pas en x86 & x64 sous win7.

blendman · Message par **blendman** » dim. 14/juin/2015 19:43

je confirme que GrabDrawingImage() est bien bugué, c'est l'ima (invalid memory access) que j'avais aussi.

Micheao · Message par **Micheao** » lun. 15/juin/2015 9:43

je comfirme aussi j'ai essayé de teste sur seven 64 ça plante pareil

à tout hasard Dobro as tu testé le code sur l'ide original de PB et pas avec ton EPB ?

blendman · Message par **blendman** » lun. 15/juin/2015 11:53

à priori, ça a été posté sur le forum anglais, dans la partie bug - windows.

http://www.purebasic.fr/english/viewtop ... =4&t=62417

Mais comme indiqué, peut-être tout simple qu'on ne peut pas faire un GrabDrawingImage() avec un screenoutput(), auquel cas, il faudrait juste le noter dans l'aide ^^.

Micheao · Message par **Micheao** » lun. 15/juin/2015 16:14

j'ai testé le code avec EPB ça plante pareil

PureBasic

[ok] Screen to Image

[ok] Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image

Re: Screen to Image