PureBoard

Code: Alles auswählen

rocedure.s openURL(url.s, OpenType.b) 
  isLoop.b=1 
  INET_RELOAD.l=$80000000 
  hInet.l=0: hURL.l=0: Bytes.l=0 
  Buffer.s=Space(2048) 
  
  hInet = InternetOpen_("PB@INET", OpenType, #Null, #Null, 0) 
  hURL = InternetOpenUrl_(hInet, url, #Null, 0, INET_RELOAD, 0) 
  
  Repeat 
    
    Delay(1) 
    InternetReadFile_(hURL, @Buffer, Len(Buffer), @Bytes) 
    If Bytes = 0 
      isLoop=0 
    Else 
      res.s = res + Left(Buffer, Bytes) 
    EndIf 
  Until isLoop=0 
  InternetCloseHandle_(hURL) 
  InternetCloseHandle_(hInet) 
  ProcedureReturn res 
EndProcedure 
Structure CODE
  string.s
  *buffer.LONG
EndStructure
Global anzahlZeichen
anzahlZeichen = 25 

Dim code.CODE(anzahlZeichen-1)
Procedure GetImageMem(Image)
  
  hBmp = UseImage(Image) 
  w    = ImageWidth() 
  h    = ImageHeight() 
  hdc  = StartDrawing(ImageOutput())
  *mem = AllocateMemory(w*h*4)
  
  bmi.BITMAPINFO
  bmi\bmiHeader\biSize   = SizeOf(BITMAPINFOHEADER)
  bmi\bmiHeader\biWidth  = w
  bmi\bmiHeader\biHeight = h
  bmi\bmiHeader\biPlanes = 1
  bmi\bmiHeader\biBitCount = 32
  bmi\bmiHeader\biCompression = #BI_RGB
  
  GetDIBits_(hdc,hBmp,0,h,*mem,@bmi,#DIB_RGB_COLORS)  
  
  StopDrawing()
  
  ProcedureReturn *mem
EndProcedure
Procedure.s GetString(codebild)
  For i = 0 To 7 ;// 3 bilder
    *buffer.LONG = GetImageMem(GrabImage(codebild,#PB_Any,15*i,0,7,10))
    old  = *buffer 
    
    For j = 0 To anzahlZeichen - 1  
      old2 = code(j)\Buffer
      
      For o = 1 To 225 
        If *buffer\l = code(j)\Buffer\l
          treffer + 1
        EndIf 
        *buffer + 4
        code(j)\Buffer + 4
      Next
      
      *buffer        = old
      code(j)\Buffer = old2
      If treffer > 100
        codestr.s + code(j)\string
      EndIf 
      
      treffer = 0
      
    Next
    FreeMemory(old)
  Next 
  
  ProcedureReturn codestr
EndProcedure
URLDownloadToFile_(0,"http://www.fiosgrand.com/verify.php","pic.bmp",0,0)    

UsePNGImageDecoder()
 
Filename$ = "pic.bmp"          
LoadImage(0, Filename$)
          
ImageFormat = #PB_ImagePlugin_BMP
Extension$  = "bmp"
            
If LCase(GetExtensionPart(Filename$)) <> Extension$
Filename$ = "pic"           
Filename$ + "." + Extension$
EndIf
GrabImage(0,1,20,4,64,12)          
SaveImage(1, Filename$, ImageFormat)

code(0)\string = "a" : LoadImage(0,"a.bmp") 
code(0)\Buffer = GetImageMem(0)
code(1)\string = "b" : LoadImage(1,"b.bmp")
code(1)\Buffer = GetImageMem(1)
code(2)\string = "c" : LoadImage(2,"c.bmp") 
code(2)\Buffer = GetImageMem(2)
code(3)\string = "d" : LoadImage(3,"d.bmp") 
code(3)\Buffer = GetImageMem(3)
code(4)\string = "e" : LoadImage(4,"e.bmp") 
code(4)\Buffer = GetImageMem(4)
code(5)\string = "f" : LoadImage(5,"f.bmp") 
code(5)\Buffer = GetImageMem(5)
code(6)\string = "g" : LoadImage(6,"g.bmp")
code(6)\Buffer = GetImageMem(6)
code(7)\string = "h" : LoadImage(7,"h.bmp") 
code(7)\Buffer = GetImageMem(7)
code(8)\string = "i" : LoadImage(8,"i.bmp") 
code(8)\Buffer = GetImageMem(8)
code(9)\string = "j" : LoadImage(9,"j.bmp") 
code(9)\Buffer = GetImageMem(9)
code(10)\string = "k" : LoadImage(10,"k.bmp") 
code(10)\Buffer = GetImageMem(10)
code(11)\string = "l" : LoadImage(11,"l.bmp") 
code(11)\Buffer = GetImageMem(11)
code(12)\string = "m" : LoadImage(12,"m.bmp") 
code(12)\Buffer = GetImageMem(12)
code(13)\string = "n" : LoadImage(13,"n.bmp") 
code(13)\Buffer = GetImageMem(13)
code(14)\string = "o" : LoadImage(14,"o.bmp") 
code(14)\Buffer = GetImageMem(14)
code(15)\string = "p" : LoadImage(15,"p.bmp") 
code(15)\Buffer = GetImageMem(15)
code(16)\string = "q" : LoadImage(16,"q.bmp") 
code(16)\Buffer = GetImageMem(16)
code(17)\string = "r" : LoadImage(17,"r.bmp") 
code(17)\Buffer = GetImageMem(17)
code(18)\string = "s" : LoadImage(18,"s.bmp") 
code(18)\Buffer = GetImageMem(18)
code(19)\string = "t" : LoadImage(19,"t.bmp") 
code(19)\Buffer = GetImageMem(19)
code(20)\string = "u" : LoadImage(20,"u.bmp") 
code(20)\Buffer = GetImageMem(20)
code(21)\string = "v" : LoadImage(21,"v.bmp") 
code(21)\Buffer = GetImageMem(21)
code(22)\string = "w" : LoadImage(22,"w.bmp") 
code(22)\Buffer = GetImageMem(22)
code(23)\string = "x" : LoadImage(23,"x.bmp") 
code(23)\Buffer = GetImageMem(23)
code(24)\string = "y" : LoadImage(24,"y.bmp") 
code(24)\Buffer = GetImageMem(24)
code(25)\string = "z" : LoadImage(25,"z.bmp") 
code(25)\Buffer = GetImageMem(25)
code$ = GetString(LoadImage(#PB_Any,"pic.bmp"))