Spanish Insertar Imagenes con PDFWriter sin OutOfMemory

Discussion in 'Spanish Forum' started by hibrid0, Jun 27, 2015.

Similar threads

B4J Code Snippet Tableview header wrap text
B4A Question OutOfMemory Error with LoadBitmap
B4A Question is Out Of Memory ?
B4A Tutorial Version safe APK installation
B4A Question OutOfMemory error
  1. hibrid0

    hibrid0 Active Member Licensed User

    Comparto pequeña rutina para insertar imágenes con la Liberia PDFWriter.
    Si se insertan muchas imágenes el PDFWriter sale el dichoso error de OutOfMemory.

    Sub insertar_imagen2 (nombre_imagen As String, izquierda As Double, arriba As Double)
    dim img_load as bitmap
    LoadBitmapSample("", nombre_imagen,239180)

        PDFWriter1.addImage(mm2Points(izquierda),mm2Points(arriba), img_Logo)
    Log("Liberamos Memoria")      
    Dim Obj1,obj2 As Reflector
          Obj1.Target = img_Logo                                        
    End Sub

    La librería también da OutOfMemory cuando la imagen insertada esta fuera de la pagina creada, el error solo dice OutOfMemory y me costo tiempo saber de donde provenía el error.

    Otra Rutina que hay en el foro para usar milímetros o Pulgadas con esta librería.

    Sub Points2mm(nPoints As Double) As Int
    Dim nD As Double
    Dim nL As Long
       nD = nPoints / 
    72 * 25.4 ' 25.4 mm = 1 Inch = 72 Point
       nL = Round(nD)
    Return nL
    End Sub

    Sub mm2Points(nMM As Double) As Int
    Dim nD As Double
    Dim nL As Long
       nD = nMM * 
    72 / 25.4
       nL = 
    Return nL
    End Sub
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice