مشکل با Initialize

[pmtweb 38]

سلام دوستان

من برای فراخوانی عکس از دیتابیس و قرار دادن اون در اسکرول ویو از تاپیک زیر استفاده کردم

http://answercenter.ir/topic/3952-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D9%81%D9%88%D9%82-%D9%85%D9%87%D9%85/

وقتی که برنامه رو اجرا می کنم و به اکتیویتی مربوطه میروم خطا میده که اول باید اسکرول ویو رو Initialize کنم . خب ؟

من هم کد زیذ رو اضاف کردم :

scrolview1.Initialize("")

و باز برنامه رو اجرا کردم اینبار این خطا رو  داد :

error occurred
an error has eccurred in sub :activity1_show(java line: 443)
java.lang.numberFormatException: invalid double:"" continue?

بعد من این کد رو گذاشتم

scrolview1.Initialize("scrolview")

و باز این اررور رو داد :

error occurred
an error has eccurred in sub :activity1_show(java line: 443)
java.lang.numberFormatException: invalid double:scrolview continue

اشکال از کجا میتونه باشه؟

ramazan.rar

[pmtweb 38]

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("notha")
If File.Exists(File.DirInternal,"ramazan.db")=False Then
File.Copy(File.DirAssets,"ramazan.db",File.DirInternal,"ramazan.db")
End If
If s.IsInitialized= False Then
s.Initialize(File.DirInternal,"ramazan.db",False)
End If
show
End Sub

Sub show
If scrolview1.IsInitialized= False Then
scrolview1.Initialize(1500dip)
End If
Dim sh As Int
Dim cur As Cursor
sh=0
Dim cur As Cursor
cur=s.ExecQuery("SELECT * FROM Tbl")
Dim h As Int
h = 2%y
For i= 0 To cur.RowCount-1
cur.Position=i
If cur.GetInt("ID")=1 Then
Dim img As ImageView
img.Initialize("")
img.Bitmap = namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
scrolview1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
h=h+bp.getHeight(img.Bitmap) + 2%y
sh=sh+bp.getHeight(img.Bitmap)
scrolview1.Panel.Height=sh
End If
If cur.GetInt("ID")=2 Then
Dim img As ImageView
img.Initialize("")
img.Bitmap=namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
scrolview1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
h=h+bp.getHeight(img.Bitmap) + 2%y
sh=sh+bp.getHeight(img.Bitmap)
scrolview1.Panel.Height=sh
End If
If cur.GetInt("ID")=3 Then
Dim img As ImageView
img.Initialize("")
img.Bitmap=namayesh(i)
Dim bp As BitmapExtended
bp.Initialize("")
scrolview1.Panel.AddView(img,0,h,bp.getWidth(img.Bitmap),bp.getHeight(img.Bitmap))
h=h+bp.getHeight(img.Bitmap) + 2%y
sh=sh+bp.getHeight(img.Bitmap)
scrolview1.Panel.Height=sh
End If

scrolview1.Panel.Height=scrolview1.Panel.Height+10%y
Next

End Sub
Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub namayesh(position As String) As Bitmap
Dim cur As Cursor
cur=s.ExecQuery("SELECT SMS FROM Tbl")
cur.Position=position
Dim bytes() As Byte
bytes=cur.GetBlob("SMS")
Dim input As InputStream
input.InitializeFromBytesArray(bytes,0,bytes.Length)
Dim b As Bitmap
b.Initialize2(input)
input.Close
Return (b)
End Sub

اینو چک کنید !! الان هیچ ارروری نمیده  ولی تصویر نمایش داده نمیشه

البته حواسم هستا اون sms اسمشه ولی تو دیتابیش همون عکس هستشا اشتباه نشه

این کد و دیتابیس هم پیوست شد

لطفا اگه میشه چک کنید ببینید اشکالش چیه

[پژمان نیکروان 6,055]

سلام.

و بعد اینو بذارید دیگه اررور نمیده:

scrolview1.Initialize(1500dip)