Optimización de Trim de una imagen.

tincho 23-09-2021, 12:35

Hola amigos.
Hay algunas funciones que utilizo, a través de shell, que seguramente se pueden hacer mejor usando Extern ya que se trata de ImageMagick y hay algo de eso en el wiki del foro italiano.
Esta es una de las funciones que uso:

Código:
'' Corta los bordes blancos de la imagen JPEG.

 Static Public Function JPEGTRIM(sPath As String, iPage As Integer) As String

   Dim prs2 As Process

   Dim strComm1 As String

   Dim sTrim As String

   Dim imgOrig As Image

   Dim imgTrim As Image

   sTrim = File.Dir(sPath) &/ "t" & Format(iPage, "000") & ".jpeg"

   strComm1 = "convert "

   strComm1 &= "-density 300 "

   strComm1 &= "-resample 300x300 "

   strComm1 &= "-trim "

   strComm1 &= "'" & sPath & "' "

   strComm1 &= "'" & sTrim & "'"

   If Exist(sTrim) Then

     Try Kill sTrim

   Endif

   Shell strComm1 Wait

   prs2 = Shell strComm1

   While

     prs2.State = prs2.Running

     Wait 0.05

   Wend

   Return sTrim

 End

¿Alguien tiene algo hecho que se pueda adaptar?
La finalidad de esta función en particular es preparar una imagen para poder armar un cuadernillo (Booklet) en A5
Saludos.

Última modificación: 23-09-2021, 13:00 por tincho.

1 Saludo.