+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Optimización de Trim de una imagen. (/thread-631.html)
Optimización de Trim de una imagen. - tincho - 23-09-2021
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.