Sorry for the wrong title,i mean bitmap.getpixel
1.jpg is a 1920*1080 picture
Here need more than 2min for running the codes,but in VB6 picture.point is very fast.
Is there more fast way to achieve this function?
1.jpg is a 1920*1080 picture
B4X:
dim b As Bitmap
Dim i As Int,j As Int,s as string
b.Initialize(File.DirRootExternal, "1.jpg")
s=""
For i=1 To b.Width-1
ToastMessageShow(i,True) '
DoEvents
For j=1 To b.Height-1
Log(i & "," & j)
If b.GetPixel(i,j)<=-8421505 Then
s=s & "0"
Else
s=s & "1"
End If
Next
Next
Here need more than 2min for running the codes,but in VB6 picture.point is very fast.
Is there more fast way to achieve this function?