VB6 – Insertar un texto en una imagen [Visual Basic 6.0 y ImageMagick]

Imagenes y Visual Basic 6…. Un binomio poco conocido… poco trabajado… y muy buscado…

Apartir de aquella entrada, “VB6 – Manejo de Imágenes [Visual Basic 6.0 y ImageMagick]”, todo cambio…
Sabia que era un tema poco tratado y poco hablado en castellano/español. Prueba de ello son las consultas que dicha entrada causaron y algun que otro proyecto interesante del cual me solicitaron mi ayuda. (Gracias a todos!)

Pero continuemos con las imagenes…
Esta sentado delante del PC, dando cabezazos contra el monitor y diciendo:
– Quiero, quiero… Quiero!
– Bueno… Necesito!
– bueno… me piden…
– bueno… me ordenan… 😦 meter un texto dentro de una imagen.


Como anteriormente, siempre trabajaremos con nuestra querida suite ImageMagick y en una linea haremos todo el trabajo:

Private Sub Command1_Click()
    '
    Dim sP_Fichero_Origen_01 As String
    Dim sFichero_Destino_01 As String
    '
    Dim objImageMagick_01 As Object
    '
    '-------------------------------------------------§§§----'
    '
    sP_Fichero_Origen_01 = "D:\Imagen_Origen_01.jpg"
    sFichero_Destino_01 = "D:\Imagen_Destino_01.jpg"
    '
    If (Dir(sP_Fichero_Origen_01)  "") Then
        Set objImageMagick_01 = CreateObject("ImageMagickObject.MagickImage.1")
        '
        ' VER LA WEB: http://www.imagemagick.org/Usage/text/#label
        '
        Dim strL_Texto_01 As String
        '
        strL_Texto_01 = ""
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "En un lugar de la Mancha, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "de cuyo nombre no quiero acordarme, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "no ha mucho tiempo que vivía un hidalgo de los de lanza en astillero, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "adarga antigua, "
        strL_Texto_01 = strL_Texto_01 & vbCrLf & "rocín flaco y galgo corredor. "
        '
        objImageMagick_01.Convert "-fill", "red", "-font", "Arial", "-pointsize", "35", "-draw", "text 15,12 '" & strL_Texto_01 & "'", sP_Fichero_Origen_01, sFichero_Destino_01
        '
        Set objImageMagick_01 = Nothing
        '
    End If
    ''
End Sub

Parametros:

“-fill”, “red” ==> Color de la fuente de texto.
“-font”, “Arial” ==> Que fuente de texto vamos a utilziar.
“-pointsize”, “35” ==> Tamaño de la fuente de texto.
“-draw”, “text 15,12 ‘” & strL_Texto_01 & “‘” ==> Comando de insercion de texto.
Como se puede ver, primero la posicion del texto (coordenada X=15, Y=12) y el propio texto.
Que yo he obtado por pasarle atraves de una variable.
Mucha atencion, fijaos que el texto va entre comellas simples.
sP_Fichero_Origen_01 ==> Fichero de origen.
sFichero_Destino_01 ==> Fichero de destino.

 

Como veis, facil, rapido e indoloro 😉
Podriamos ampliarlo mas, com mas parametros, pero esto es lo basico. Para profundizar mas solo teneis que visitar la web de ImageMagick.

Fin de esta entrada rapida… Saludos!!!

Anuncios

Acerca de Robert Ale
Soy yo un simple tipo que quiere estar en la red... aunque no se si lo conseguiré algún día...

5 Responses to VB6 – Insertar un texto en una imagen [Visual Basic 6.0 y ImageMagick]

  1. fran says:

    He instalado imagemagick y he usado tu programación y no hace nada, lo único que he modificado son las direcciones de los ficheros

  2. Rafael lclp says:

    Fabuloso algo así buscaba yo.
    Me podrías ampliar tu programa para poder
    girar el texto los grados que uno quiera.

  3. Jose Luis says:

    Hola al generar el codigo arroja error -2147215503(80041771) y en tiempo de ejecucion

  4. Jose Luis says:

    Hola, he ejecutado tu codigo, generar un error en tiempo de ejecucion -2147215503(80041771), alguna pauta que puedas indicarme?, gracias por tu atencion.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: