[Sintaxis] Copiar al portapapeles

[Josber]

¿ Alguien sabe el código para poner un botón de Copiar al Portapapeles ?

Gracias

Un saludo.-

[Kuk]

La cosa no es tan facil como parece. Yo lo tengo hecho en un programa, pero lo que copio es texto plano que es facil de hacer. Luego si quieres copiar texto fon formato, imagebn, documento etc. ya se complica mas la cosa.

Se hace mediante WinAPI. Si te vale texto plano, esta tarde miro en casa el ejemplo y te lo pego aqui.


P.D. Por cierto, entiendo que no es el caso pero si necesitas copiar pegar datos solo dentro de tu aplicacion, puedes usar variables globales o incluso controls con la propiedad "Visible" desmarcada.

[Josber]

Gracias Kuk, es texto plano puro y duro, y no es para uso interno, si no para pegarlo al wordpad, etc.

Un saludo.-

[Kuk]

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  WS-HWND     PIC S9(9) COMP-5.
 01  WM_CUT               PIC S9(9) COMP-5 VALUE H"0300".   
 01  WM_COPY              PIC S9(9) COMP-5 VALUE H"0301".   
 01  WM_PASTE             PIC S9(9) COMP-5 VALUE H"0302".   
 PROCEDURE       DIVISION.
     
     MOVE POW-MP-WAIT TO "MousePointer" OF POW-SELF
     *>--------------------------------------------
     MOVE "hwnd" OF RichTextBox1 TO WS-HWND
         
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HWND
                                            BY VALUE WM_COPY
                                            BY VALUE 0
                                            BY VALUE 0 
     CANCEL "SendMessageA"
     
     *>--------------------------------------------
     MOVE POW-MP-DEFAULT TO "MousePointer" OF POW-SELF
     

[Adrianeloy]

Alguien tendrá el codigo contrario, o sea para leer el contenido del portapapeles texto plano (o volcarlo a una variable de cobol)?
Ya se que es mucho pedir, pero...
A alguien le habrá quedado el codigo de la llamada para PowerCobol V.3?

[Kuk]

adrianeloy, el codigo de la accion contraria seria sustituir WM_COPY por WM_PASTE
Para PowerCOBOL 3 no tengo ni idea.

[Galileo]

❞ Alguien tendrá el codigo contrario, o sea para leer el contenido del portapapeles texto plano (o volcarlo a una variable de cobol)? Ya se que es mucho pedir, pero... A alguien le habrá quedado el codigo de la llamada para PowerCobol V.3?

No me cabe duda de que se debe poder hacer también en PC3. La cosa está en saber cómo se obtiene el identificador (el handle) del componente. Tal vez sea realizando SETFOCUS al control y luego invocando una función del API de Windows que nos devuelva dicho handle.

El caso es que he encontrado un sistema más sencillo que, eso sí, requiere de un programa externo. Se trata de una pequeñísima utilidad que envía pulsaciones simuladas al sistema operativo (concretamente Sendkeys, en http://orlando.mvps.org/SendKeysMore.asp). Es gratuito y fácil de utilizar. Aquí te pongo un ejemplo:

    CALL SETFOCUS OF EDIT1.        
    CALL EXECAPL OF SHEET1 USING "SendKeys.exe 0 0 ""Prueba de copy y paste"" ""^C"" ".

Los dos ceros indican, el primero, el número de segundos (o fracción) que ha de esperar antes de enviar la pulsación simulada (una vez que la ventana del programa indicado en el tercer parámetro esté ya con el foco); el segundo, el número de segundos que ha de esperar hasta desistir, si no encuentra la ventana. En el ejemplo, "Prueba de copy y paste" es el título de la ventana de mi programa PC3, y "^C" es la combinación de teclas que se envía al sistema operativo (en este caso, CTRL-C, es decir, el atajo que se usa para copiar al portapapeles).

Lo bueno es que simula cualquier combinación de teclas con cualquier programa. Lo veo muy práctico.

Y un quebradero de cabeza que te quitas.

[Kuk]

Galileo, Adrianeloy, echádle un vistazo aquí: Obtener el Handle (HWND) de un control - COBOL Foro

[Galileo]

Vale, ya he probado el código Kuk. Pero no consigo que funcione el copy.

 ENVIRONMENT DIVISION.
 DATA        DIVISION.
 WORKING-STORAGE SECTION.
 01  WS-HWND-P  PIC S9(9) COMP-5.
 01  WS-HWND-C  PIC S9(9) COMP-5.
 01  WS-TEXTO   PIC X(50).
 01  WM_CUT     PIC S9(9) COMP-5 VALUE 768.   
 01  WM_COPY    PIC S9(9) COMP-5 VALUE 769.   
 01  WM_PASTE   PIC S9(9) COMP-5 VALUE 770.   
 
 PROCEDURE DIVISION.
     CALL SETFOCUS OF EDIT1. <* Este es el control con el texto que quiero copiar
     CALL "GetActiveWindow" WITH STDCALL.
     MOVE PROGRAM-STATUS TO WS-HWND-P.
 
     CALL "GetDlgItem" WITH STDCALL USING BY VALUE WS-HWND-P BY VALUE 1.
     MOVE PROGRAM-STATUS TO WS-HWND-C.
 
     CALL "GetDlgItemTextA" WITH STDCALL USING BY VALUE WS-HWND-P BY VALUE 1 BY REFERENCE WS-TEXTO BY VALUE 50.
     CALL DISPLAYMESSAGE OF SHEET1 USING WS-TEXTO. <* Muestra el texto del control
 
     CALL "SendMessageA" WITH STDCALL USING BY VALUE WS-HWND-C BY VALUE WM_COPY BY VALUE 0 BY VALUE 0.

Abro el bloc de notas y, cuando intento pegar el contenido del portapapeles, este aparece como vacío.

[Kuk]

Galileo, imagino que tu EDIT1 no tiene ID = 1. Si primero has puesto un botón y luego el EDIT, el último tendrá ID = 2. El ID es el orden del TAB.