- 2026-04-09 1.1.8 Se añade la clase tsNotificacionesClient
- 2026-04-09 1.1.7 Se añade la clase Excel
This commit is contained in:
38
Excel.vb
Normal file
38
Excel.vb
Normal file
@@ -0,0 +1,38 @@
|
||||
Imports System.IO
|
||||
|
||||
Public Class Excel
|
||||
Public Shared Sub IEnumerableAExcel(Of t)(Datos As IEnumerable(Of t), Fichero As String)
|
||||
Dim wb As New ClosedXML.Excel.XLWorkbook
|
||||
Dim dt = Extensiones.IEnumerableExtensions.CopyToDataTable(Of t)(Datos)
|
||||
wb.AddWorksheet(dt)
|
||||
wb.SaveAs(Fichero)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub IEnumerableAExcel(Of t)(Datos As List(Of t), Fichero As String)
|
||||
Dim wb As New ClosedXML.Excel.XLWorkbook
|
||||
Dim dt = Extensiones.IEnumerableExtensions.CopyToDataTable(Of t)(Datos)
|
||||
wb.AddWorksheet(dt)
|
||||
wb.SaveAs(Fichero)
|
||||
End Sub
|
||||
Public Shared Function IEnumerableAExcel(Of t)(Datos As List(Of t)) As Byte()
|
||||
Dim wb As New ClosedXML.Excel.XLWorkbook
|
||||
Dim dt = Extensiones.IEnumerableExtensions.CopyToDataTable(Of t)(Datos)
|
||||
wb.AddWorksheet(dt)
|
||||
Dim ms As New MemoryStream
|
||||
wb.SaveAs(ms)
|
||||
ms.Position = 0
|
||||
Return ms.ToArray
|
||||
End Function
|
||||
Public Shared Function ListaIEnumerableAExcel(Of t)(Datos As List(Of List(Of t)), NombreTablas As List(Of String)) As Byte()
|
||||
Dim wb As New ClosedXML.Excel.XLWorkbook
|
||||
For i = 0 To Datos.Count - 1
|
||||
Dim tabla = Datos(i)
|
||||
Dim dt = Extensiones.IEnumerableExtensions.CopyToDataTable(Of t)(tabla)
|
||||
wb.AddWorksheet(dt, NombreTablas(i))
|
||||
Next
|
||||
Dim ms As New MemoryStream
|
||||
wb.SaveAs(ms)
|
||||
ms.Position = 0
|
||||
Return ms.ToArray
|
||||
End Function
|
||||
End Class
|
||||
89
tsNotificacionesClient.vb
Normal file
89
tsNotificacionesClient.vb
Normal file
@@ -0,0 +1,89 @@
|
||||
Imports System.Configuration
|
||||
Imports System.Net
|
||||
Imports System.Net.Http
|
||||
Imports System.Net.Http.Headers
|
||||
Imports System.Net.Http.Json
|
||||
|
||||
Public Class TsNotificacionesClient
|
||||
|
||||
Private ReadOnly _http As HttpClient
|
||||
Private ReadOnly _idAplicacion As Integer
|
||||
|
||||
Public Sub New(baseUrl As String, idAplicacion As Integer, apiKey As String)
|
||||
_idAplicacion = idAplicacion
|
||||
ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True
|
||||
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Or SecurityProtocolType.Tls11
|
||||
_http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)}
|
||||
_http.DefaultRequestHeaders.Add("X-Api-Key", apiKey)
|
||||
End Sub
|
||||
|
||||
Public Shared Async Function RegistrarAsync(titulo As String, descripcion As String, TipoNotificacion As TipoNotificacionEnum, Optional Fichero As Byte() = Nothing) As Task
|
||||
Try
|
||||
ServicePointManager.ServerCertificateValidationCallback = Function(s, c, ch, e) True
|
||||
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 Or SecurityProtocolType.Tls11
|
||||
Dim baseUrl = ConfigurationManager.AppSettings("TsNotificaciones:ApiUrl")
|
||||
Dim idAplicacion = Integer.Parse(ConfigurationManager.AppSettings("TsNotificaciones:IdAplicacion"))
|
||||
Dim apiKey = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
|
||||
Dim http = New HttpClient() With {.BaseAddress = New Uri(baseUrl)}
|
||||
Dim NombreServidor = ConfigurationManager.AppSettings("TsNotificaciones:ApiKey")
|
||||
If NombreServidor = "" Then NombreServidor = System.Environment.MachineName
|
||||
'Dim json As String = String.Format(
|
||||
' "{{""idAplicacion"":{0},""nombreServidor"":""{1}"",""ipServidor"":""{2}""," &
|
||||
' """titulo"":""{3}"",""stacktrace"":""{4}"",""nivelSeveridad"":{5}}}",
|
||||
' idAplicacion, EscaparJson(Environment.MachineName), ObtenerIp(),
|
||||
' EscaparJson(titulo), EscaparJson(descripcion), CInt(TipoNotificacion))
|
||||
|
||||
'Await http.PostAsync("/api/alertas/registrar",
|
||||
' New StringContent(json, Encoding.UTF8, "application/json"))
|
||||
|
||||
Dim Tipo = CInt(TipoNotificacion)
|
||||
Dim request = New HttpRequestMessage(HttpMethod.Post, "/api/alertas/registrar")
|
||||
request.Headers.Add("X-Api-Key", apiKey)
|
||||
request.Content = JsonContent.Create(New With {idAplicacion, NombreServidor, ObtenerIp(), titulo, descripcion, Tipo})
|
||||
Dim response = Await http.SendAsync(request)
|
||||
Dim body As System.Text.Json.JsonElement = Await response.Content.ReadFromJsonAsync(Of System.Text.Json.JsonElement)()
|
||||
Dim id = body.GetProperty("id").GetInt32()
|
||||
If Fichero IsNot Nothing Then
|
||||
Await SubirFichero(http, apiKey, id, Fichero)
|
||||
End If
|
||||
Catch ex As Exception
|
||||
Throw New Exception(ex.Message, ex)
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Private Shared Async Function SubirFichero(ByVal http As HttpClient, ByVal apiKey As String, ByVal alertaId As Integer, ByVal datos As Byte()) As Task
|
||||
Try
|
||||
Dim fileContent = New ByteArrayContent(datos)
|
||||
fileContent.Headers.ContentType = New MediaTypeHeaderValue("image/png")
|
||||
Dim multipart = New MultipartFormDataContent()
|
||||
multipart.Add(fileContent, "archivo", "Imagen.png")
|
||||
Dim request = New HttpRequestMessage(HttpMethod.Post, $"/api/alertas/{alertaId}/archivo")
|
||||
request.Headers.Add("X-Api-Key", apiKey)
|
||||
request.Content = multipart
|
||||
Dim response = Await http.SendAsync(request)
|
||||
Dim ok As Boolean = response.IsSuccessStatusCode
|
||||
If Not ok Then Throw New Exception($"Subida fallida ({response.StatusCode}): {Await response.Content.ReadAsStringAsync()}")
|
||||
Catch httpEx As Exception
|
||||
Throw New Exception
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Shared Function ObtenerIp() As String
|
||||
For Each addr In Dns.GetHostAddresses(Dns.GetHostName())
|
||||
If addr.AddressFamily = Sockets.AddressFamily.InterNetwork Then Return addr.ToString()
|
||||
Next
|
||||
Return "127.0.0.1"
|
||||
End Function
|
||||
|
||||
'Private Shared Function EscaparJson(s As String) As String
|
||||
' Return s.Replace("\", "\\").Replace("""", "\""").Replace(vbCr, "\r").Replace(vbLf, "\n")
|
||||
'End Function
|
||||
Public Enum TipoNotificacionEnum
|
||||
INFO = 0
|
||||
ADVERTENCIA = 1
|
||||
[ERROR] = 2
|
||||
CRÍTICO = 3
|
||||
End Enum
|
||||
End Class
|
||||
@@ -16,11 +16,13 @@
|
||||
<TargetFramework>net8.0</TargetFramework>
|
||||
<PackageId>tsUtilidades</PackageId>
|
||||
<PackageTags>net8.0, libreria</PackageTags>
|
||||
<Version>1.1.6</Version>
|
||||
<Version>1.1.8</Version>
|
||||
<Authors>Manuel</Authors>
|
||||
<Company>Tecnosis S.A</Company>
|
||||
<Description>Utilidades Varias</Description>
|
||||
<PackageReleaseNotes>
|
||||
- 2026-04-09 1.1.8 Se añade la clase tsNotificacionesClient
|
||||
- 2026-04-09 1.1.7 Se añade la clase Excel
|
||||
- 2026-03-05 1.1.6 Correccion rutina EjeMySqlHex
|
||||
- 2025-10-05 1.1.5 Nueva funcion EjecutarScript
|
||||
- 2025-09-05 1.1.4 No se eliminan los caracteres especiales ni se mayusculiza en ValidarDocumentoIdentidad
|
||||
@@ -49,6 +51,7 @@
|
||||
|
||||
<ItemGroup>
|
||||
<None Include="README.md" Pack="true" PackagePath="\" />
|
||||
<PackageReference Include="ClosedXML" Version="0.105.0" />
|
||||
<PackageReference Include="Google.Protobuf" Version="3.28.3" />
|
||||
<PackageReference Include="IbanNet" Version="5.16.1" />
|
||||
<PackageReference Include="K4os.Compression.LZ4.Streams" Version="1.3.8" />
|
||||
|
||||
Reference in New Issue
Block a user