InputStream istr = contentResolver.openInputStream(uri);
BufferedInputStream buf_istr = new BufferedInputStream(istr, 8192);
Bitmap bm = BitmapFactory.decodeStream(buf_istr);
Dim jo As JavaObject
jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), uri)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
No.Does the customer needs anything to Install to get access on anywheresoftware.b4a.objects?
Try
LongVal = getImageIdByFilename(Main.dbProjektposten.GetString("Dateiname"))
If LongVal <> -1 Then
url = "content://de.dirkfarin.imagemeterpro/image/anno/" & LongVal
File.Delete(File.DirDefaultExternal, Main.dbProjektposten.GetString("Dateiname"))
Dim jo As JavaObject
jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), url)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
Dim out As OutputStream
out = File.OpenOutput(File.DirDefaultExternal, Main.dbProjektposten.GetString("Dateiname"),False)
bmp.WriteToStream(out,80,"JPEG")
out.Close
MemoAddLine("Aufmaßdatei "& Main.dbProjektposten.GetString("Dateiname") & " holen!")
DateilisteJPG.Add(Main.dbProjektposten.GetString("Dateiname"))
End If
Catch
MemoAddLine("Export fehlgeschlagen: " & Main.dbProjektposten.GetString("Dateiname"))
MsgBox(LastException.Message,"ERROR")
End Try
If you are connected in USB debug mode then you can read the device logs.Is it also possible to read the "LOG" such like debugging but without active debugger?
Authority: de.dirkfarin.imagemeterpro
Name: de.dirkfarin.imagemeter.lib.IMContentProvider
Package: de.dirkfarin.imagemeterpro
Process: de.dirkfarin.imagemeterpro
Read permission: NOT REQUIRED
Write permission: NOT REQUIRED
Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), url)
If In.IsInitialized = False Then
MemoAddLine("Inputstream nicht initialisiert: "& LongVal)
End If
Imagemeter Export fehlgeschlagen: V54262.o.1.jpg
java.lang.NullPointerException
Imagemeter Export fehlgeschlagen: V54262.o.2.jpg
java.lang.NullPointerException
Imagemeter Export fehlgeschlagen: V54262.o.3.jpg
java.lang.NullPointerException
Sub Button1_Click
Dim url As String
Dim LongVal As Long
Dim dialog As InputDialog
dialog.InputType = dialog.INPUT_TYPE_NUMBERS
dialog.Show("ImageMeter Image ID","Eingabe","OK","","",Null)
If dialog.Response = DialogResponse.POSITIVE Then
LongVal = dialog.Input
If LongVal <> -1 Then
url = "content://de.dirkfarin.imagemeterpro/image/anno/" & LongVal
File.Delete(File.DirDefaultExternal, "test_"& LongVal &".jpg")
Dim jo As JavaObject
jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), url)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
Dim out As OutputStream
out = File.OpenOutput(File.DirDefaultExternal, "test_"& LongVal &".jpg",False)
bmp.WriteToStream(out,80,"JPEG")
out.Close
ImageView1.Bitmap = LoadBitmap(File.DirDefaultExternal,"test_"& LongVal &".jpg")
End If
End If
End Sub
Label1.Text = "url = ""content://de.dirkfarin.imagemeterpro/image/anno/"" & LongVal"
url = "content://de.dirkfarin.imagemeterpro/image/anno/" & LongVal
Label1.Text = "File.Delete(File.DirDefaultExternal, ""test_""& LongVal &"".jpg"")"
File.Delete(File.DirDefaultExternal, "test_"& LongVal &".jpg")
Label1.Text = "Dim jo As JavaObject"
Dim jo As JavaObject
Label1.Text = "jo.InitializeStatic(""anywheresoftware.b4a.objects.streams.File"")"
jo.InitializeStatic("anywheresoftware.b4a.objects.streams.File")
Label1.Text = "Dim In As InputStream = File.OpenInput(jo.GetField(""ContentDir""), url)"
Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), url)
Label1.Text = "Dim bmp As Bitmap"
Dim bmp As Bitmap
Label1.Text = "bmp.Initialize2(In)"
bmp.Initialize2(In)
Label1.Text = "In.Close"
In.Close
Label1.Text = "Dim out As OutputStream"
Dim out As OutputStream
Label1.Text = "out = File.OpenOutput(File.DirDefaultExternal, ""test_""& LongVal &"".jpg"",False)"
out = File.OpenOutput(File.DirDefaultExternal, "test_"& LongVal &".jpg",False)
Label1.Text = "bmp.WriteToStream(out,80,""JPEG"")"
bmp.WriteToStream(out,80,"JPEG")
Label1.Text = "out.Close"
out.Close
Label1.Text = "ImageView1.Bitmap = LoadBitmap(File.DirDefaultExternal,""test_""& LongVal &"".jpg"")"
ImageView1.Bitmap = LoadBitmap(File.DirDefaultExternal,"test_"& LongVal &".jpg")
Label1.Text = "FINISH!!!"
Dim In As InputStream = File.OpenInput(jo.GetField("ContentDir"), url)
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?