http://rapidshare.de/files/22385470/test.rar.html
Habe ein Bild und möchte es in Text umwandeln... es kommt aber was anderes raus...
Code: Alles auswählen
Procedure.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
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)
code123$ = GetString(LoadImage(#PB_Any,"pic.bmp"))
MessageRequester("TEST",code123$)
ich hoffe man kann mir weiterhelfen...
