Private job As HttpJob
job.Initialize("ImagenPerfil", Me)
' add the files to a list
Dim files As List
files.Initialize
Dim fd1 As MultipartFileData
fd1.Initialize
fd1.KeyName = "image"
fd1.Dir = Fotografia_Usuario.DirectorioFoto
fd1.FileName = Fotografia_Usuario.NombreFoto
fd1.ContentType = "image/png"
files.Add(fd1)
'job.PostMultipart("http://3.13.50.152/api/orders2", m, Array(fd1))
' Starter.CadenaConexion = http://prueba02.somostally.com/api/
job.PostMultipart(Starter.CadenaConexion & "avatar/", m, Array(fd1))
job.GetRequest.SetHeader("Accept", "/")
job.GetRequest.SetHeader("Authorization", "Bearear " & Starter.MyToken)
Try
LogColor($"Inicio Guardar imagen candidato. Tiempo = $time{DateTime.Now}"$, Colors.Red)
Wait For (job) jobdone (job As HttpJob)
LogColor($"Fin Guardar imagen candidato. Tiempo = $time{DateTime.Now}"$, Colors.Red)
If job.Success Then
LogColor($"Imagen de candidato guardada con éxito."$, Colors.Blue)
Msgbox($"Imagen de candidato guardada con éxito."$, "imagen")
Else
Private Error As String = job.ErrorMessage
LogColor($"Error al guardar la Imagen del candidato. Error: ${Error}"$, Colors.Blue)
Msgbox($"Error al guardar la Imagen del candidato. Error: ${Error}"$, "imagen")
End If
Catch
'Devolvemos el texto del error que nos indica
Private Error As String = LastException.Message
LogColor($"Error al guardar la Imagen del candidato. Error: ${Error}"$, Colors.Blue)
Log(LastException)
End Try
End Sub