PureBasic

Code : Tout sélectionner

CreateImage(0,512,512)
StartDrawing(ImageOutput())
 Box(0,0,ImageWidh(),ImageHeight(),Rgb(200,0,0))
StopDrawing() 

MemoryID1 = AllocateMemory(500) 
MemoryID2 = AllocateMemory(200) 

If CreateFile(0,Fichier$) 
   WriteData(@MaStructure, SizeOf(MaStructure))
   WriteData(MemoryID1 , 500) 
   WriteData(MemoryID2 , 200) 
;Là j'aimerais enregistrer l'image 0
    CloseFile(0)
Endif

Code : Tout sélectionner

If ReadFile(0,Fichier$)
   ReadData(@MaStructure, SizeOf(MaStructure))
   ReadData(MemoryID1 , 500) 
   ReadData(MemoryID2 , 200) 
  ;Et là j'aimerais lire l'image 0
   CloseFile(0)
EndIf  

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 700, 500, #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget , "")
   CreateGadgetList(WindowID())

   Font = LoadFont(200, "ARIAL", 7, #PB_Font_HighQuality)

   Resultat = CreateImage(100, 14, 14)

   If Resultat And StartDrawing(ImageOutput())
      ; le fond de l'image en blanc
      Box(0, 0, 14, 14, #white)
      DrawingMode(4)
      ; on dessine les 2 rectangles extérieurs de la grille en blue
      Box(0, 0, 14, 14, #blue)
            
      ; on écrit le chiffre 1 au milieu avec la police sélectionnée
      DrawingFont(Font)
      Locate((14 -TextLength(Str(1))) / 2, 2)
      DrawText(Str(1))
      Box(0, 0, 14, 14, #blue)
      StopDrawing()
   EndIf

If CreateFile(0,"C:\program Files\PureBasic\Projets\Loto\essai.dat")
;Là j'aimerais enregistrer l'image 0 
   
   ; on récupère chaque point de l'image du hDc en utilisant un useimage si nécessaire
   ; le tout est de de mettre les points dans un ordre qui sera le même qu'en lecture
   
    StartDrawing(ImageOutput())
    For i = 0 To ImageWidth() - 1
        For j = 0 To ImageHeight() - 1
             WriteLong(Point(i, j))
        Next j
    Next i
    StopDrawing()
    CloseFile(0)
    
    ImageGadget(200, 50, 50, 0,0, Resultat) 
 
EndIf

Repeat
Until WaitWindowEvent()= #PB_EventCloseWindow

EndIf

End

Code : Tout sélectionner

If OpenWindow(0, 0, 0, 700, 500, #PB_Window_ScreenCentered | #PB_Window_SystemMenu | #PB_Window_MinimizeGadget , "")
   CreateGadgetList(WindowID())
Resultat = CreateImage(100, 14, 14)
If Resultat And StartDrawing(ImageOutput())

If OpenFile(0,"C:\program Files\PureBasic\Projets\Loto\essai.dat")
   ; on récupère chaque point de l'image
   
    For i = 0 To 13  ; 14 points 
        For j = 0 To 13
             Plot(i, j, ReadLong())
        Next j
    Next i
    StopDrawing()

    CloseFile(0) 
    
EndIf
EndIf

ImageGadget(200, 50, 50, 0,0, Resultat) 

Repeat
Until WaitWindowEvent()= #PB_EventCloseWindow

EndIf
End

Code : Tout sélectionner

OpenBmp:

If ReadFile(0, File)
  FileSize = FileSize(File)
  If loaded
    FreeMemory(0)
  EndIf
  BmpImage = AllocateMemory(0, FileSize, 0)
  ReadData(BmpImage , FileSize)
  CloseFile(0)
  *BmpFile = BmpImage
  *BmpInfo = BmpImage+SizeOf(BITMAPFILEHEADER)
  IData\width = *BmpInfo\biWidth
  IData\height = *BmpInfo\biHeight
EndIf

Return

;
; Save Bmp file
;

SaveBmp:

If CreateFile(0, File)
  WriteData(BmpImage, *BmpFile\bfSize)
  CloseFile(0)
EndIf

Return