If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
' If result.Tag = " " Then 'query tag
For Each records() As Object In result.Rows
Dim name As String=records(0)
Dim name1 As String=records(1)
Dim name2 As String=records(2)
Dim name3 As String=records(3)
Dim name4 As String=records(4)
Dim name5 As String=records(5)
Dim data() As Byte =records(14)' records(result.Columns.Get("jobnr"))
Dim Ini As InputStream
Ini.InitializeFromBytesArray(data,0,1)
Log(data.Length)
Dim out As OutputStream
If File.Exists(File.DirRootExternal,"99.jpg") Then
File.Delete(File.DirRootExternal,"99.jpg")
End If
out=File.OpenOutput(File.DirRootExternal,"99.jpg",True)
'out.WriteBytes(data, 0, data.Length)
File.Copy2(Ini,out)
out.Flush
out.Close
Dim data() As Byte =records(15)' records(result.Columns.Get("jobnr"))
Dim Ini As InputStream
Ini.InitializeFromBytesArray(data,0,1)
Log(data.Length)
Dim out As OutputStream
If File.Exists(File.DirRootExternal,"100.jpg") Then
File.Delete(File.DirRootExternal,"100.jpg")
End If
out=File.OpenOutput(File.DirRootExternal,"100.jpg",True)
out.WriteBytes(data, 0, data.Length)
'File.Copy2(Ini,out)
out.Flush
out.Close