Discussion :

[potili2]

par Delphi, je commande un logiciel de bourse MS.
Delphi va chercher des données dnas ce logiciel MS qui lui, les a récupérées par le presse papier. Delphi traite ces données et les réinjecte dnas le logiciel MS par le presse papier.
Mon problème est que les données en question sont assez importantes et le délai de remplissage, vidage du presse papier est variable (temps variable selon le nombre de donnnées et le degré d'occupation du CPU), j'ai bien sur laissé une temporisation, mais "batarde" car beaucoup trop longue parfois
D'où ma question:
comment peut on savoir si l'opération vidage (ou remplissage) du presse papier par un logiciel autre que delphi est terminé ou non?
merci à vous .
Jean Pierre

[cincap]

@potili2, peut être en testant les différents formats.

Une fiche, un Tmemo, un Timage.

Uses

ClipBrd;

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MyHandle: THandle;
begin
  Clipboard.Open;
  if Clipboard.HasFormat(CF_TEXT) then
  begin
    MyHandle:=Clipboard.GetAsHandle(CF_TEXT);
    Memo1.Lines.Add(StrPas(GlobalLock(MyHandle)));
    GlobalUnlock(MyHandle);
  end;
  if (Clipboard.HasFormat(CF_BITMAP)) or
    (Clipboard.HasFormat(CF_PICTURE)) then
    Image1.Picture.Assign(Clipboard);
  Clipboard.Close;
 
 
end;

Voir en ajoutant d'autres formats.

@+,

Cincap

[potili2]

merci pour cette réponse qui fonctionne bien.
maintenant, il me reste encore le problème inverse:
si je copie les données du presse papier dans l'application MS, je ne peux pas savoir quand c'est terminé puisqu'il n'y a pas modification du presse papier, dans ce cas.
Comment faire?
merci
Jean Pierre

[cincap]

@ potili2, quelle commande fais tu pour copier ces infos dans l'appli MS.

Peut être tu peux inclure un TprogressBar avec une boucle dans le code de la commande.

Mais sans voir un bout de code, difficile.

@+,

Cincap

[potili2]

je simule un "paste" dans l'application MS
avec appui de touches

Code :

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

1
2
3
4
5
            handledatactiondep := childdepart;
            Keybd_event(VK_LCONTROL,0,0,0);sleep(10);   ////   //        copie du presse papier dans la fenetre datas
            Keybd_event(ord('V'),0,0,0);sleep(10);
            Keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);sleep(10);   //
            Keybd_event(ord('V'),0,KEYEVENTF_KEYUP,0);

et il faudrait suspendre delphi pendant le temps exact de ce chargement car ce temps est très variable selon les données