Comunidad Gambas-es

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.

Aplicaciones/Fragmentos de Código Sin respuestas

Gambas Racista

Shordi 23-09-2021, 09:41

Pues tengo un tema oscuro y me hace cosas raras. Por ejemplo: Si a un toolbutton le coloco una imagen que no sea del stock, me la pone en negativo... con lo que todo se va al diablo.
El programa de conexión de Intriga incluye un checkeador de correo y un sistema de envío de notas de escritorio como utilidades básicas. Las notas de escritorio las hacía con ventanas sin bordes y la imagen de una chincheta y relieve y colorines pastel tipo post-it... y todo se ha ido al diablo, insisto. He tenido que poner ventanas normales y feas...

Racismo puro contra los temas negros. Lo que yo os cuente.

Saludos

General Respuestas 8

Proyecto Intriga: Programa colector en GIT

Shordi 21-09-2021, 12:48

He creado el proyecto colector en el GIT. He subido el mismo proyecto que ya subí aquí . Los que estéis interesado pasáis automáticamente al estatus de colaboradores y tendréis una mención en los créditos finales y un 10% de los ingresos generados, que se pagarán en dólares a primeros de cada mes.

Big Grin