Spanish Insertar Imagenes con PDFWriter sin OutOfMemory

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

  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.

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

        img_Logo=CreateScaledBitmap(img_Logo, 
    239180,True)
        PDFWriter1.addImage(mm2Points(izquierda),mm2Points(arriba), img_Logo)
    Log("Liberamos Memoria")      
    Dim Obj1,obj2 As Reflector
          Obj1.Target = img_Logo                                        
          Obj1.RunMethod(
    "recycle")
    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.



    Code:
    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 = 
    Round(nD)
       
    Return nL
    End Sub
     
Loading...