Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

4D Discussion :

Faire copier/coller avec le conteneur


Sujet :

4D

  1. #1
    Futur Membre du Club
    Faire copier/coller avec le conteneur
    Bonjour,
    Je souhaite remplir une chaîne de caractères avec les données qui sont dans le presse papier (après un CTRL C dans Word)
    Mon code :
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    C_BLOB()
    C_TEXTE($Mychaine)
    _o_C_ENTIER($Lataille)
    Si (Événement formulaire=Sur clic)
        $Lataille:=(Tester conteneur("com.4d.private.text.utf16")  // Est-ce qu'il y a les données du type "artx" dans le Pressepapiers?
        Si ($Lataille>0)
            FIXER TAILLE BLOB($Leconteneur;$Lataille)
            LIRE DONNÉES CONTENEUR("com.4d.private.text.utf16";$Leconteneur)  // Extraire les données du Presse-papiers
            Si (OK=1)
                $Mychaine:=BLOB vers texte($Leconteneur;UTF8 texte sans longueur)  // Remplir le tableau avec les données venant du contener
                [Randonnées]Commentaires:=$Mychaine
            Fin de si 
        Fin de si 
    Fin de si


    Ça ne marche pas, si quelqu'un a une idée
    Merci,
    Bruno

  2. #2
    Futur Membre du Club
    Version simplifiée de mon code qui ne marche toujours pas
    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    C_BLOB($Leconteneur)
    C_TEXTE($Mychaine)
     
    LIRE DONNÉES CONTENEUR("com.4d.private.text.utf16";$Leconteneur)  // Extraire les données du Presse-papiers
    $Mychaine:=BLOB vers texte($Leconteneur;UTF8 texte sans longueur)  // Remplir la chaine avec les données venant du contener