Cannot open Clipboard

Version imprimable

08/10/2006, 11h26
David

Cannot open Clipboard
Salut à tous ,

Voila, mon appli, à l'appel d'une combinaison de touches, doit copier le contenu de la sélection en cours de l'appli au premier plan vers le clipboard.

La procedure donne ça (de tête):
Code:

1 2 3 4 5 6 7 Procedure CopieClipboard; begin ...simule ctr+c if Clipboard.HasFormat(CF_TEXT) then Cliptxt:=clipboard.astext; end;
En fait ça marche mais le problème est que je récupère de temps à autre un message d'erreur "Cannot open clipboard". :cry:

j'ai d'abbord voulu empécher l'aprition du message avec un try except mais sans succès et de toutes manière je veux éviter de récuperer une variable vide.

après un petit F1 sur Clipboard j'ai remanié mon code comme ceci :
Code:

1 2 3 4 5 6 7 8 9 Procedure CopieClipboard; begin ...simule ctr+c Clipboard.open; if Clipboard.HasFormat(CF_TEXT) then Cliptxt:=clipboard.astext; Clipboard.close; end;
...et la miracle ! plus de message d'erreur ....
... mais plus de valeur dans ma variable Cliptxt non plus !

en fait le open et le close semblent rendre le clipbord windows inaccessible.
Ce n'est donc pas la solution.

Quelqu'un aurait-il une explication à ce message (cannot open clipboard) ?
Est-ce une autre appli qui monopolise son utilisation ?
Comment m'assurer son accès ?

Merci d'avance

ps: je précise que si j'utilise une similation de ctr+c c'est parceque l'appli qui contient les champs dont je veux récupérer le contenu ne me laisse pas utiliser les handles des ses champs (certains oui certains non...)
mais ceci fera l'objet d'un autre post ;)

Salut !

T'as dû t'emméler les pinceaux qqpart, car les 2 tests ci-dessous fonctionnent, je viens de le vérifier :

Code:

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
procedure TForm1.Button1Click(Sender: TObject);
var
  Cliptxt: string;
  Clipboard: TClipboard;
  MyHandle: THandle;
  TextPtr: PChar;
  MyString: string;
begin
  ClipBoard := TClipBoard.Create;
  ClipBoard.Open;
  MyString := 'Blah!';
  // test 1
  {try
    MyHandle := Clipboard.GetAsHandle(CF_TEXT);
    TextPtr := GlobalLock(MyHandle);
    MyString := StrPas(TextPtr);
    GlobalUnlock(MyHandle);
  finally
    Clipboard.Close;
  end;
  ShowMessage(MyString);}
  // test 2
  if Clipboard.HasFormat(CF_TEXT) then begin
    Cliptxt := clipboard.astext;
    Clipboard.close;
    ShowMessage(Cliptxt);
  end;
  ClipBoard.Free;
end;

Pour faire les tests, un coup tu copies du texte dans le Presse-papiers, un coup tu copies autre chose (image, etc.)

Mes 2 cts,
--
jp

08/10/2006, 17h09
David

Je te remercie pour ta réponse.
Ton code m'a tout l'air de résoudre mon problème.

Par contre j'avoue ne pas comprendre pourquoi il faut créer un objet Clipboard, alors que l'on veut accéder à un objet existant déja (le clipboard windows).

Encore merci en tout cas :P
09/10/2006, 10h31
David

ok, je viens de tester tout ça à tête reposée :D
Le test 1 marche à merveille.
Par contre les test 2 marche à moitié : si je copie du text dans le clipboard avant execution, quand je clique sur le bouton il me retourne bien ce texte.
Mais ensuite (l'appli tourne toujours) je vais copier une image, je clique : pas de texte retourné (c'est normal). Je recopie du texte dans le Clipboard et là : plus rien !!!
Bizzard...

Merci encore
09/10/2006, 12h05
Jipété

Yep !
Je viens de fouiner un peu, et j'ai trouvé ça,

Citation:

CF_TEXT - Text with each line ending with a CR-LF combination.

, chez Zarko.
Et je viens de tester la méthode 2 avec d'abord une image et pas de ShowMessage, normal, puis avec une ligne terminée par CR-LF et ça a fonctionné.
Valà,
--
jp
09/10/2006, 12h30
David

Oui mais si je selectionne du texte au milieu d'une ligne, par expl dans l'éditeur de code, et que je le copie, il ne contient pas le CR-LF et pourtant ca marche...
(suffit de faire Coller dans un editeur de texte, il n'y a pas de retour a la ligne)

Je vais encore approfondir le sujet.
Merci pour ton aide et pour le lien (je sens que ce site va me donner de la lecture !)
09/10/2006, 13h35
Jipété

Citation:

il ne contient pas le CR-LF

Oui, j'avais remarqué et j'y ai vaguement pensé : tu dois pouvoir détecter si ta string contient CR-LF à la fin, et si non, l'ajouter avant de continuer ?

Pas plus d'idées, c'est pas un de mes axes de recherche.
--
jp