Dim j As HttpJob
j.Initialize("", Me)
Dim fd As MultipartFileData
fd.Initialize
fd.KeyName = "Content"
fd.Dir = Provider.SharedFolder
fd.FileName = tempImageFile
fd.ContentType = "application/octet-stream"
j.PostMultipart(Main.BaseUrl & "projects/files/upload_image", CreateMap( "hash": "Test","user": "Hallo"), Array(fd))
j.GetRequest.SetHeader("Authentication", "bearer " & Main.Token)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Log(j.GetString)
End If
j.Release