Ejecter une clé USB de façon sûre

Version imprimable

28/03/2008, 11h45
ero-sennin

Ejecter une clé USB de façon sûre

Bonjour,

J'essaie tant bien que mal d'éjecter un volume (clé USB) de façon sûre comme si l'on passé par l'icône dans le systray :Retirer le périphérique en toute sécurité.

Pour ce faire, j'utilise le travail de SergioMaster cependant, j'ai un petit soucis :(
Il ne reconnait pas la fonction CM_Request_Device_Eject ...
J'ai pourtant bien déclaré mes uses et j'ai téléchargé les win32api mais rien n'y fait... De plus, d'après ma traduction, il est désormais plus judicieux d'utiliser les JEDI API Windows Headers (JWAPI).

J'avoue être un peu dépassé bien que j'ai cherché ...
Une petite aide serait la bienvenue :)
J'utilise XP Pro SP2
Merci
28/03/2008, 18h36
SergioMaster

Salut ,
mon programme 'tournant' avec avec ce qui était indiqué dans le post je ne suis pas allé plus loin . Pour ce qui est des JWAPI je vais me pencher dessus ce w.e., je n'étais pas au courant

par contre je ne me souviens pas avoir utilisé CM_Request_Device_Eject :(
dans l'unité ejection
28/03/2008, 19h14
ero-sennin

Salut SergioMaster :P

Merci de te pencher sur le soucis également...
J'ai vraiment envie de finaliser la chose étant donné que j'aimerai inclure cette partie dans mon compo gérant l'insertion et le retrait de volumes :)

En ce qui concerne CM_Request_Device_Eject, je confirme, tu l'as bien utilisé ;)
Si j'ai le temps ce week, je regarderai encore...

A+ :)
29/03/2008, 09h22
SergioMaster

Exact ! Bien fait pour moi :aie:
CM_Request_Device_Eject, je l'utilise bien , voilà ce que c'est de travailler sur plusieurs postes :mouarf:

cette fonction doit se trouver dans un des apports de JVCL
-> cfgMgr32.pas pour être exact :P

quant a la JWAPI je suis en train d'en lire la derniere version

modif :

:yaisse2: cfg,setupAPI et cfgMgr32 se trouve dans jwapi\trunc\SaCMAPI

(petite note , pour faire la fonction je n'ai installé aucun paquets, mias juste copié les éléments sources 'nécessaires' :
cfg.pas,cfgmgr32.pas,setupApi,jwaWinBase
je ne suis même pas sur qu'il soit tous nécessaires :roll:)

nota : j'ai suivi avec intérêt tes travaux sur l'USB :bravo:
29/03/2008, 11h18
ero-sennin

Hello !

Ca y est :D
Tout fonctionne désormais :king:
Merci pour ton aide, (au passage, je n'avais pas eu le temps de m'y replonger hier).
Bon, ba voilà, je vais pouvoir ajouter ça à mon compo avec en plus l'éjection de CD ;)

Le petit soucis (enfin, je pense ... à tester), ce sera avec les lecteurs de cartes SD ...
En effet, si l'on passe par l'arrêt via le systray, il me déconnecte carrément mon lecteur USB (logiquement me direz vous). Il me faudra donc faire une simple éjection ...
Tout ceci n'est qu'hypothèse et donc se doit d'être vérifié :) Je ferai des tests lorsque j'aurai un peu plus de temps!

En attendant, encore merci :yaisse2:
A+

Salut,

Je me permet d'utiliser ce thread pour poser ma question sur l'éjection de CD/DVD ...
Je suis allé faire un tour dans la FAQ afin de voir si une telle fonction existait, et j'ai trouvé :P. Cependant, il y a un hic ... Lorsque j'utilise la fonction de la FAQ, j'ai une erreur de ce style :

Citation:

Le projet Project1.exe a provoqué une classe d'exception EAccessViolation avec le message 'Violation d'accès à l'adresse 7C923022 dans le module 'ntdll.dll'. Ecriture de l'adresse 0000000E'. Processus stoppé. Utilisez Pas-à-pas ou Exécuter pour continuer.

D'après mes recherches, c'est

Code:

mciGetErrorString(Error, ErrorText, LenghtBuffer);

qui pose soucis.

J'ai donc modifié la fonction ainsi :
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 function OpenCD(Drive: Char): Boolean; var Error: MciError; OpenParm: TMCI_Open_Parms; Flags: DWORD; DeviceLetter: string; DeviceID: Word; begin Result := False; DeviceLetter := Drive + ':'; Flags := MCI_OPEN_TYPE or MCI_OPEN_ELEMENT; with OpenParm do begin dwCallback := 0; lpstrDeviceType := 'CDAudio'; lpstrElementName := PChar(DeviceLetter); end; Error := mciSendCommand(0, MCI_OPEN, Flags, Longint(@OpenParm)); if Error <> 0 then Exit; DeviceID := OpenParm.wDeviceID; try Error := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0); if Error <> 0 then Exit; Result := True; finally mciSendCommand(DeviceID, MCI_CLOSE, Flags, Longint(@OpenParm)); end; end;
Voilà :)
A+

Salut !

Moi aussi j'ai modifié le code, mais afin de ne pas virer la fonction qui t'a posé problème, j'ai plutôt rajouté ce qui manquait afin que ça ne plante plus, ;)

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
30
31
32
33
34
35
36
37
38
39
function OpenCD(Drive: String): Boolean;
var
  OpenParm: TMCI_Open_Parms;
  Flags: DWord;
  DeviceID : Word;
  Error: MciError;
  ErrorText: PChar;
  LenghtBuffer: Cardinal;
begin
  Result := False;
  LenghtBuffer := 255; // !
  try // !
    GetMem(ErrorText, LenghtBuffer); // !
    Flags := mci_Open_Type or mci_Open_Element;
    with OpenParm do begin
      dwCallback := 0;
      lpstrDeviceType := 'CDAudio';
      lpstrElementName := PChar(Copy(Drive, 0, 2));
    end;
    Error := mciSendCommand(0, mci_Open, Flags, Longint(@OpenParm));
    mciGetErrorString(Error, ErrorText, LenghtBuffer);
    if Error = 0 then
      DeviceID := OpenParm.wDeviceID
    else
      raise EAccessViolation.Create(ErrorText);
    try
      Error := mciSendCommand(DeviceID, MCI_SET, MCI_SET_DOOR_OPEN, 0);
      mciGetErrorString(Error, ErrorText, LenghtBuffer);
    finally
      mciSendCommand(DeviceID, mci_Close, Flags, Longint(@OpenParm));
    end;
      if Error = 0 then
        Result := True
      else
        raise EAccessViolation.Create(ErrorText);
  finally // !
    FreeMem(ErrorText, LenghtBuffer); // !
  end;  // !
end;

Valà !
--
jp

31/03/2008, 08h21
ero-sennin

Salut cher Jipété 8-)

Je te remercie pour ce code.
Je n'avais pas chercher à corriger la fonction, j'ai viré ce qui posait soucis dans un premier temps afin de faire simple.

Bonne journée à toi :)
Cordialement
01/04/2008, 10h43
SergioMaster
:salut:

pour l'éjection d'un CD tu peut aussi utiliser ceci , sans plus
Code:

1 2 mciSendString('Set cdaudio door open wait', nil, 0, handle);
je ne sais pas pourquoi ça marche mais en tout cas beton :mrgreen: je l'utilise régulièrement pour ejecter mes CD sur un portable qui n'as pas la touche d'éjection facile :evilred:
01/04/2008, 10h57
ero-sennin
Salut,
Citation:
Envoyé par SergioMaster

:salut:

pour l'éjection d'un CD tu peut aussi utiliser ceci , sans plus

Code:

1 2 mciSendString('Set cdaudio door open wait', nil, 0, handle);

je ne sais pas pourquoi ça marche mais en tout cas beton :mrgreen: je l'utilise régulièrement pour ejecter mes CD sur un portable qui n'as pas la touche d'éjection facile :evilred:
Je suis d'accord avec toi, mais moi, j'ai deux lecteurs et lorsque j'utilise cette fonction, je ne peux qu'ouvrir le premier ... C'est pour cela que je me suis penché sur plus compliqué :mrgreen:

A moins que ce que je dise ne soit que bêtise ... :roll:
A+ ;)