Cómo crear un archivo DLL COM con Visual FoxPro que se imprime la imagen de pantalla

Seleccione idioma Seleccione idioma
Id. de artículo: 255279 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

Resumen

Este artículo se muestra, por ejemplo, la facilidad general con la que se pueden crear archivos DLL del modelo de objetos componentes (COM) dentro de Microsoft Visual FoxPro 6.0. El código del programa contenido en este artículo permite al usuario crear un ejemplo útil de una DLL COM sencillo.

Más información

En orden para el ejemplo que se van a utilizar, el equipo de host debe tener una copia correctamente instalada de Microsoft Office para Windows 95 (o superior). La DLL de COM ofrece las siguientes funciones:
  • Captura la imagen de pantalla de la ventana abierta y activa.

  • Se crea una instancia OLE de Microsoft Word con el fin de imprimir la imagen capturada de la pantalla.

  • La imagen de pantalla capturada se pega en un documento de Microsoft Word.

  • Se imprime el documento de Microsoft Word en impresora predeterminada del equipo.
Para crear la DLL de COM se describe en este ejemplo, realice los pasos siguientes:
  1. Dentro de Microsoft Visual FoxPro 6.0, cree un proyecto nuevo denominado olepscrn .
  2. Agregue un programa nuevo al proyecto olepscrn y entrada el siguiente código:
    *!* Beginning of program code example:
    DEFINE CLASS p_screen AS CUSTOM OLEPUBLIC
        Name = "p_screen"
        ScreenPrinted = .F.
        oWordObj = ""
        PROCEDURE ScreenCapture
            This.ReleaseWord()
            This.ScreenPrinted = .T.
            DECLARE INTEGER keybd_event IN Win32API ;
                INTEGER, INTEGER, INTEGER, INTEGER
            VK_SNAPSHOT = 44
            =keybd_event(VK_SNAPSHOT, 1, 0, 0)
            This.oWordObj=CREATEOBJECT("Word.Application")
            This.oWordObj.Documents.Add
            This.oWordObj.ActiveDocument.PageSetup.Orientation = 1
            WITH This.oWordObj.WordBasic
                .EditPaste
                .FilePrint
                .FileClose(2)
            ENDWITH
            RELEASE keybd_event, vk_snapshot
        ENDPROC
        PROCEDURE ReleaseWord
            IF This.ScreenPrinted
                This.oWordObj.Quit
                This.oWordObj = ""
                This.ScreenPrinted = .F.
            ENDIF
        ENDPROC
        PROCEDURE Destroy
            This.ReleaseWord()
        ENDPROC
    ENDDEFINE
    *!* End of program code example:
    					
  3. Guarde el programa como p_screen .
  4. En el Jefe de proyecto , seleccione el botón Generar y elija servidor COM de subproceso único (DLL) en Visual FoxPro 6.0 con Service Pack 3 o elija archivo COM de generación de en Visual FoxPro 6.0.
  5. Desde la ventana comando , puede utilizar la DLL escribiendo los tres comandos siguientes:
    1. Este comando crea una referencia de objeto a la DLL y carga en la memoria:
      oPScreen = CREATEOBJECT("olepscrn.p_screen")
      							
      este comando ejecuta IMPR PANT:
      oPScreen.ScreenCapture()
      							
      este tercer y último comando quita la DLL de la memoria. Cuando se libera el objeto, la instancia de Microsoft Word que creó se libera así:
      RELEASE oPScreen
      							
    2. Este comando ejecuta IMPR PANT:
      oPScreen.ScreenCapture()
      							
      este tercer y último comando quita la DLL de la memoria. Cuando se libera el objeto, la instancia de Microsoft Word que creó se libera así:
      RELEASE oPScreen
      							
    3. Este comando tercera y última quita la DLL de la memoria. Cuando se libera el objeto, la instancia de Microsoft Word que creó se libera así:
      RELEASE oPScreen
      							

Referencias

Para obtener información adicional acerca de la captura de pantalla mediante programación, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
153003Cómo realizar una captura de pantalla mediante programación
Para obtener información adicional acerca de COM y VFP 6.0, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
188709Vfpcom.exe con mejoras del lenguaje de COM en VFP 6.0
Para obtener más información acerca de cómo crear servidores de automatización, busque ampliar las aplicaciones y, después, agregar OLE en la Ayuda de Visual FoxPro.

Propiedades

Id. de artículo: 255279 - Última revisión: martes, 29 de junio de 2004 - Versión: 1.1
La información de este artículo se refiere a:
  • Microsoft Visual FoxPro 6.0 Professional Edition
Palabras clave: 
kbmt kbcodesnippet kbhowto kbprint KB255279 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 255279
Renuncia a responsabilidad de los contenidos de la KB sobre productos a los que ya no se ofrece asistencia alguna
El presente artículo se escribió para productos para los que Microsoft ya no ofrece soporte técnico. Por tanto, el presente artículo se ofrece "tal cual" y no será actualizado.

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com