Discussion :

[JoseF]

Bonjour,

en FreePascal, je cherche à envoyer des données vers le presse papier pour les récupérer dans une autre application windows.

supposons que je demande à mon programme une info sur un client en lui demandant son n° de référence, je voudrais en plus de l'affichage (de son adresse par exemple) la stocker dans le presse papier pour éventuellement la récupérer dans un tableur ...

j'ai cherché avec GetClipboardData mais je ne trouve pas la solution...

merci si quelqu'un à une petite idée ..

[Tuxico]

pourquoi ne pas enregister dans un fichier?

[Eric Sigoillot]

pourquoi ne pas enregister dans un fichier?

Peut-être parce qu'il veut utiliser le presse-papier ?

La lecture et l'écriture dans le presse-papier sont des choses assez simples pour lesquelles on trouve de (très) nombreux code-sources. Il y a un problème particulier ?

@++

[Tuxico]

ah we sorry pour moi presse papier c'était bloc notes lol -_-'
plus l'habitude de windows désolé

[JoseF]

Bonsoir,

le presse papier est rempli avec des Ctrl+C (sur du texte) ou imprim ecran.. (sur une image) . J'avais bien pensé à passer par un fichier mais ce n'est pas le but car je veux récuperer l'info avec un Ctrl+v par exemple dans une appplication windows autre.

En fait j'arrive en FreePascal à lire le contenu du presse papier (mode texte) et à l'afficher avec un writeln(pointeur);

mais je n'ai pas réussi ni trouvé de code source pour remplir ce presse papier depuis FreePascal (je ne parle pas de Delphi où ça je sais faire...)

voila si quelqu'un à un source TP ou FreePascal ou me donner une idée

merci d'avance.

[Eric Sigoillot]

Bonjour,

J'ai écrit en 5 minutes le code suivant. Il a l'air de fonctionner
Commenté et indenté, y'a plus qu'à pomper !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
uses
  Windows, Strings;
 
 
function CopyToClipboard(const S: string): Boolean;
var
  hGlobalMem: HGlobal;
  lpGlobalMem: LPVoid;
begin
  Result := False;
  { Allocation de l'espace mémoire }
  hGlobalMem := GlobalAlloc(GHND, Length(S) + 1);
  if hGlobalMem <> 0 then
  begin
    { Fixation en mémoire et obtention d'un pointeur }
    lpGlobalMem := GlobalLock(hGlobalMem);
    if lpGlobalMem <> nil then
    begin
      { Copie de la chaîne }
      StrPCopy(PChar(lpGlobalMem), S);
      if Integer(GlobalUnlock(hGlobalMem)) = 0 then
      begin
        { Ouverture du presse-papier }
        if OpenClipboard(0) then
        begin
          { On vide le presse-papier avant de le remplir }
          EmptyClipboard;
          { On place la chaîne dedans }
          Result := (SetClipboardData(CF_TEXT, hGlobalMem) <> 0);
          { On referme le presse-papier }
          CloseClipboard;
        end;
      end;
    end;
  end;
  { ATTENTION ! Il ne faut pas libérer la mémoire allouée
    pour le presse-papier : le système en devient le propriétaire }
end;
 
 
begin
  CopyToClipboard('Texte copié avec succès');
end.

@++

[JoseF]

bonsoir..

vous êtes trop fort... et votre programme trop bien fait !!

je ne vais plus oser poser des questions si ça continue !

je crois que j'ai tout à apprendre...

merci en tous cas d'avoir pris le temps de me répondre.

JoseF